my %meth = ( foo => "foo" );

$o->${\ $meth{foo} }($count++);