hi see the following code.

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";
}
[download]

By this way you can bale to assign tow elements as an array in perl. Actually in perl two dimensional array will be created using references.