if(2==@_ && not ref $_[0] && not ref $_[1]){...}
elsif(1==@_ && 'HASH' eq ref $_[0]){...}
else{print "falsche Parameter\n"}