use strict;
use warnings;

my @array = ([1, 2, 3, 4, 5],
             ['one', 'two', 'three', 'four', 'five'],
             ['ein', 'zwei', 'drei', 'veir', 'funf'],
             ['hana', 'dool', 'set', 'net', 'dasut'],
             ['yi', 'er', 'san', 'si', 'wu'],);

my @sorted;
my $i = 0;

for (@array) {
  for ( @{$_} ) {
    push @{$sorted[$i]}, $_;
    $i ++;
  }
  $i = 0;
}

for (@sorted) {
  for ( @{$_} ) {
    print $_, ' '
  }
  print $/
}