Help for this page

Select Code to Download

Select or download this

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

Select or download this
my @matches = grep { chomp; /a$/ } <DICT>;