Select Code to Download

CallSub($Igot,$TheBlues);

my ($Igot,$TheBlues) = @_;

@Array = qw(one two three four);
$Igot = 'whatever';
$TheBlues = 'whateverelse';

$Igot = shift(@Array);
$TheBlues = shift(@Array);
CallSub(@Array);

my (@PassedArray) = @_;
my $TheBlues = $PassedArray[0];
my $IGot = $PassedArray[1];