Name: Anonymous 2013-10-20 19:11
plz make me one
#!perl
use strict;
my @words = qx(cat /usr/share/dict/words);
chomp @words;
my @rhymes = qw/orange range ange/;
my @output;
foreach my $word (@words) {
foreach my $end (@rhymes) {
push @output, $word if $word =~ m/$end$/;
}
}
print "$_\n" foreach @output;