@data = ( [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'], ); ##

##

1   one    ein     hana   yi
2   two    zwei    dool   er 
3   three  drei    set    san 
4   four   veir    net    si 
5   five   funf    dasut  wu 

##

##

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 $/
}

##

##

1 one ein hana yi
2 two zwei dool er 
3 three drei set san 
4 four veir net si 
5 five funf dasut wu  

##

##

#!/usr/bin/perl -wT
use strict;
use CGI;
$CGI::DISABLE_UPLOADS = 1;
use CGI::Carp qw/fatalsToBrowser/;
use HTML::Template;

use vars qw/ $q $template $html @loop_data @data /;

$q = new CGI;

$html = do { local $/;  };

$template = HTML::Template->new(scalalref => \$html);

@data = ( [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'],
         );

###  DO SOMETHING HERE TO CREATE @loop_data !

$template->param(loop1 => \@loop_data);

print $q->header;
print $template->output;

exit;

__DATA__