You could use a string:

my $action = {
    dosomething => 'something'
};
my $method = $action->{dosomething};
$obj->$method(@args);
[download]

You could also use a closure:

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

$whattodo->($obj, @args);
[download]