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

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

##</code><code>##

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