my ($scalar, $tmparray, $scalar1, $tmparray2) = subroutine; my @array = @$tmparray; my @array2 = @$tmparray2;