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