#!/usr/bin/perl
use strict;
use warnings;
use Benchmark qw(timethese cmpthese);

{ package foo; sub get_foo { "@_" }; sub get_bar { "@_" } }

my $puk = sub {
    for (qw(foo bar)) {
        my $code = "foo->get_$_(qq(bar))";
        eval $code;
    }
};

my $rev = sub {
    for (qw(foo bar)) {
        my $meth = "get_$_";
        foo->$meth("bar");
    }
};

cmpthese timethese(-2, { rev => $rev, puk => $puk, });