my $action = {
  dosomething => sub { shift->something(@_) }
};
my $whattodo = $action{dosomething};

$whattodo->($obj, @args);