Well, you could hire me. $100/hr. Or you could take a class in perl programming, or something.

Something like this works (I presume both arrays are of equal length):

my @matrix;
for my $i (0 .. $#array1) { 
  $matrix[$i] = [ $array1[ $i ], $array2[ $i ] ];  
}

use Test::More qw(no_plan);
is( $matrix[1][1],  $array2[1], "Spotcheck looks good." );
[download]