print "1 wort1\t2 wort2\t3 wort3\n";
print "4 wort4\t5 wort5\t6 wort6\n";
print "7 wort1\t8 wort2\n";

my $i = 1; 
foreach(@words){
  print $i," ",$_;
  print $i % 3 == 0 ? "\n" : "\t";
  $i++;
}

my $i = 1; 
foreach my $word(@words){
  $word = ' ' x (10 - length($word)).$word;
 $i = sprintf("%5d",$i);
 print $i," ",$word;
 print $i % 3 == 0 ? "\n" : "\t";
 $i++;
}

# $maxwordlen: länge des längsten wortes
# $wordcount: anzahl der wörter in datei

my $len = $maxwordlen + length($wordcount);

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