Help for this page
sub test { my ($arg) = @_; ... print "$hashname\n"; return ($hashname); }
sub test { my ($arg) = @_; ... elsif ($arg == 2) { return 'hash2'; } die; }