Select Code to Download

if (ref $test[1] and exists $test[1][1]) {}

sub iff_ref {
  return ref $_[0] ? $_[0] : undef;
...
if (exists iff_ref($test[1])->[1]) {}
# or it might have to be
if (exists ${iff_ref($test[1])}[1]) {}