sub multi()
{
@a1;
@a2=\@a1;
@a3=\@a2;
Assigned values to a3[$i][$j][$k]
// when i print a3 all the ranges of i,j,k its printing good.
return \@a3;
}

my @arrMain = multi();