> sub a { my $ret = ""; $ret->{'a'} = "hash A"; return $ret };
> sub b { my $ret = ""; $ret->{'a'} = "hash B"; return $ret };
> package main;
> my $a = Main->a(); my $b = Main->b();
> print "Hash A: ",$a->{'a'};
> print "Hash B: ",$b->{'a'};'
Hash A: hash B
Hash B: hash B
$
Используйте 'use strict'! :)