use strict;
use warnings;
my @array =(["1","2"],["3","4"],["5","6"],["7","8"]);
for (my $j=0; $j<=$#{$array[0]}; $j++) {
       for (my $k=0; $k<=$#array; $k++) {
               print $array[$k]->[$j];
       }
print "\n";
}