perl -e '$self->{a$_};print keys %$self, $/;' -------- Can't call method "a" on an undefined value at -e line 1.