package Foo;

sub foo { print "Foo\n"; }
sub bar { print "Bar\n"; }

sub new { bless {}, shift }

package main;

my $foo = Foo->new;

foreach my $method (qw( foo bar ))
{
    $foo->$method;
}