my $matches = grep ... foreach ( @matches ) { ...