my $cmd=sub{ $obj->method(@_) };
1 2
my $method='test'; my $cmd=sub{ $obj->$method(@_) };
$cmd->(@values);