my $method = "foo";
my $full_method = "set_$method";

my $return_value = $obj->$full_method;

##</code><code>##

my $ret_value = $obj->${\"set_$method"};