Select Code to Download

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