my @x; @x = (); $x = $x[-1]; $x->meth