@arr1=([1,2,3],[4,5,6],[7,8,9]);
@arr2=([11,22,33],[44,55,66],[77,88,99]);
@garr=magic(arr1,arr2) 
#([1,2,3,11,22,33],[4,5,6,44,55,66],[7,8,9,77,88,99])

##</code><code>##

for (my $i=0;$i<scalar(@arr1);$i++)
{
$garr[$i]=(@$arr1[$i],@$arr2[$i]);
}