You can try this:

$Igot = 'whatever';
$TheBlues = 'whateverelse';
@Array = 'la la la laaaa';
CallSub($Igot, $TheBlues, @Array);

sub CallSub {
    my $Igot = shift;
    my $TheBlues = shift;
    my @Array = @_;
    ....
}
[download]

While this solution is just fine and dandy, passing an array ref will preserve the sanctity of individual values much more perlishy. This is especially useful when you have to pass two arrays of varying lengths.

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

There were no other replies when I posted this.  Really.  :)