my $i = 1; 
my $longest = 7; # länge des längsten wortes
foreach my $word(@words){
  $word = ' ' x ($longest - length($word)).$word;
  $i = sprintf("%5d",$i); # hier wird die Zahl auf 5 Stellen "getrimmt"
  print $i," ",$word;
  print $i % 3 == 0 ? "\n" : "\t";
  $i++;
}

my $longest = 0;
foreach(@words){
  $longest = length($_) if(length($_) > $longest);
}