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

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