Select Code to Download

print map {"@$_\n" } sort {$a->[0] cmp $b->[0]} grep { @$_ > 1}
   values %words;

while (<>) {
    chomp;                                
...
}
print join "\n", sort grep {tr/ //} values %words;
print "\n";

my @array = qw(one two three);

...
print "@array";
# output : 'one two three'
# it's the same as print join " ", @array;

#!/usr/bin/perl -w

...
 string:    5.40
 array :    5.05
=cut