my $thescalar=shift; 
my %thehash=shift;

##</code><code>##

my $thescalar = shift; # 1st parameter goes in $thescalar
my %thehash = @_;      # everything else goes in %thehash

##</code><code>##

my ($thescalar, %thehash) = @_;