Select Code to Download

open(OUTPUT,">>${len}.words");
while(<>){
...
  print OUTPUT "$_\n";
}
close(OUTPUT);

while (<>) {
    chomp;
    my $len = length;
    print OUTPUT $_, $/;
}

use IO::File;
my %Handles;
...
}
# This is unnecessary unless you're anal (like I try to be)
$_->close for values %Handles;