I don't usually use shift even if I want to do something with the rest of the arguments. I do, like, my($one, %hash) = @_;.