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