特定の条件に一致する日付が入ったハッシュのリファレンスを返すサブルーチンの書き方がわからない。

Question

計８ヶ月間の年月（yyyymm形式）を取得して、201806より大きい値が格納されているハッシュのリファレンスを戻り値として得たいと考えています。

下記のようなコードの書き方だと、"201806"を戻り値として返すだけで、条件に一致する値が複数入った変数を返すことができません。

sub get_yyyymm {
    my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);

    my $last_6month = sprintf("%04d%02d", $year + 1900, $mon - 5);
    my $last_5month = sprintf("%04d%02d", $year + 1900, $mon - 4);
    my $last_4month = sprintf("%04d%02d", $year + 1900, $mon - 3 );
    my $last_3month = sprintf("%04d%02d", $year + 1900, $mon - 2);
    my $last_2month = sprintf("%04d%02d", $year + 1900, $mon - 1);
    my $last_1month = sprintf("%04d%02d", $year + 1900, $mon );
    my $this_month = sprintf("%04d%02d", $year + 1900, $mon + 1);
    my $after_1month = sprintf("%04d%02d", $year + 1900, $mon + 2)

    my @diary_list = ( $last_6month, $last_5month, $last_4month, $last_3month, $last_2month, $last_1month, $this_month, $after_1month);
    foreach my $month_phr (@diary_list) {
    if ($month_phr >= '201806'){
    my @month = $month_phr;
    };
}
}

どのような書き方をすれば、条件に一致する複数の変数を戻り値として返すことができるかご教示頂ければ幸いです。
よろしくお願いいたします。

Answer 1

grepという関数を使えば配列から任意の条件に合致する要素を選び出すことができます。

my $r = [ grep {$_ ge '201806'} @diary_list ];