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