CallSub($Igot,$TheBlues);

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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