eval "sub $action { my \$pkg = shift; return(\$pkg->{\"$action\"}); }"; 

##</code><code>##

{
  my $action = "whatever";
  no strict 'refs';
  *{$action} = sub { my $pkg = shift; return $pkg->{$action}; };
}