Ohne Buddeln (mit
PadWalker) geht das nicht.
Zwei Dinge gehen dagegen ganz einfach:
- Eine "Identifikation" des Hash bekommst Du mit print $ref;. Da bekommst Du einen String wie HASH(0x55972de08c28).
- Du kannst als Konvention Deinem Hash einen Namens-Key mitgeben:
my %haha = (__name => 'Mein Name ist Hash');
test(\%haha);
sub test {
my ($ref) = @_;
print $ref->{__name};
}