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);
}