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


##</code><code>##

while(<>){
  chomp($_);
  $len = length($_);
  if($longest < $len){
    $longest = $len;
  }
  push(@{$len},$_);
}
$"="\n";
for($x=1;$x<=$longest;$x++){
  open(WORDS,">$x.txt") || die "$!";
  print WORDS "@${x}";
  close(WORDS);
}


##</code><code>##

($_='jjjuuusssttt annootthhrer
     pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;