my %hash;

sub get_name {
  my $subname = (caller 0)[3];
  $subname =~ s/.*::get_//;
  print $hash{$subname}, "\n";
}

$hash{'name'} = 'Herk';
get_name;