Select Code to Download

my $scalar1 = 1;
my $scalar2 = 2;
...

return ($scalar1,$scalar2);
}

my @array1 = (1,2);
$arrayref = \array1;
...
   $hash{name} = 'aaa';
return (\@array1,$scalar1,$scalar2,\%hash);
}