if ( @x ) {
  $x[-1]->meth();
}
else {
   die "no elements in \@x\n"; # r whatever
}