my $f = Foo->new('doot');
my @meth = (qw(zug zwang));

# doesn't work:
# print $f->$meth[rand @meth](3);

my $m = $meth[rand @meth];
print $f->$m(3), $/;