配列から条件に一致する要素を取り出す

my @titles = ('air', 'kanon', 'clannad');
my @result = ();

foreach my $title (@titles){
    push @result,$title if($title =~ /an/);
}

なんてやってたけど

@result = grep(/an/, @array);

で良いのね・・・