Select Code to Download

$Igot = 'whatever';
$TheBlues = 'whateverelse';
...
    my @Array = @_;
    ....
}

Callsub($number, \@Somearray, \@Otherarray);
sub Callsub {
...
    my @array2 = @{ +shift };
    ....
}