sub test { my ($arg) = @_; print "$arg\n"; if ($arg == 1) { print "entering loop 1\n"; $hashname = "hash1"; } elsif ($arg == 2) { print "entering loop 2\n"; $hashname = "hash2"; } print "$hashname\n"; return ($hashname); } #### sub test { my ($arg) = @_; if ($arg == 1) { return 'hash1'; } elsif ($arg == 2) { return 'hash2'; } die; }