# you're doing:
my($hash) = @_;
# should be:
my %hash = @_;