package Foo;

sub new { bless {}, shift };
sub method { shift; return shift() + shift() }

package main;

my $foo = Foo->new;
my $method = "method";
my @args = ( 2, 3 );
print $foo->$method( @args );