for ($ref) { last unless $_; last if /REF/; return $self; }