Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;

my ($wl, %words) = '/usr/dict/words';
{
    open my $wf, '<', $wl or die $!;
...
        while <$wf>;
    close $wf
}

my %matches;
@matches{map {lc} @ARGV} = ();

for (keys %matches) {
    my $ordered = join '', sort split //;
    $matches{$_} = [ grep {
...
        };
    } keys %words];
}

print $_,
      ' contains ',
      "@{[map {@$_} @words{@{$matches{$_}}}]}",
...
      $/ 
    for keys %matches;
__END__

location contains loon octal loot tool Al an at in Io it no on to Acto
+n canto Alton onto alnico lion loin Olin lint toil action into Toni I
+lona Latin colon location Tonio Cain Inca clan coal cant coat lotion 
+lain nail tail anti Tina iota Lac can act cat ail Ali Ian Lao ant Nat
+ tan oat Clint con coo cot loan tonic NATO Clio coil loci coin icon L
+in nil oil lit ion tin Ito cool clot colt lot coon not ton too antic

zoroaster contains Zoroaster as at re et or so to Oz ooze Eros ores Ro
+se sore tore zero toes Azores errs rest zest rotor roost roots arose 
+Erato roaster rears Serra rater Terra aster rates stare tears razors 
+orators sorer store zeros Starr rare rear Ares ears eras sear rate te
+ar Ezra raze east eats sate seat teas rooster resort roster sorter or
+ator are ear era Rae sea ate eat tea oar Sao oat art rat tar sat root
+ soot zoos rots sort ore roe toe Zoe err set arrest rarest raster rat
+ers Sartre starer ersatz roar oars Rosa soar oats Taos arts rats star
+ roars razor Astor roast too zoo Orr rot rooter
...
real    0m8.766s
user    0m7.450s
sys     0m0.070s