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