my best guess is that you want something like a with(object){ } statement like in JS...

Oh! great oppotunity for being silly...

package Foo {
    sub new {
        bless {
            foo => 'bar',
            baz => 'quux',
        };
    }
    sub get_foo { $_[0]->{foo}; }
    sub get_baz { $_[0]->{baz}; }
}

sub with (&$@) {
   my $code = shift;
   my $obj  = shift;
   map {
    my $meth = $_;
    local $_ = $obj->$meth;
    $code->();
   } @_;
}

my $obj = Foo->new;
my @methods = qw(get_foo get_baz);

with {
   print "val: $_\n";
} $obj, @methods;
[download]

;-)

Roughly almost ... no ... almost roughly ...

;)

Cheers Rolf
_{(addicted to the Perl Programming Language and ☆☆☆☆ :)
Je suis Charlie!}