my $f = Foo->new('doot'); # update: with subrefs: my @meth = (\&Foo::zug, \&Foo::zwang); print $f->${\$meth[rand @meth]}(3);