print $obj2->{$_} for (qw|my_method|); #### while () { #### while (defined($_ = )) {