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