my (...) = @_;

##</code><code>##

my $hash = $_[0];
my $hash = shift;