say map { $object->$_ } qw/method1 method2 method3/;