Select Code to Download

$ wc words.english
 116246  116246  989075 words.english
...
0.86     user
0.02     system
0:00.88 elapsed

push @{$Word{length$_}},$_ while (<>);
# ...
print OUT @{$Word{$_}};

$Word{length$_} .= $_ while (<>);
# ...
print OUT $Word{$_};

#!/usr/bin/perl -w
use strict;
...
 print OUT $words[$_];
 close OUT;
};