Help for this page

Select Code to Download


  1. or download this
    @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])
  2. or download this
    for (my $i=0;$i<scalar(@arr1);$i++)
{
$garr[$i]=(@$arr1[$i],@$arr2[$i]);
}