while (my $words = <DICT>) {
    chomp $words;
    push @matches, $words if $words =~ /a$/
}
##</code><code>##

 my @matches = grep { chomp; /a$/ } <DICT>;