Select Code to Download

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

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

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