@a = foo(); sub foo { return(undef); }

##</code><code>##

%h = foo(); sub foo { return(undef); }

##</code><code>##

  eval {
    my @a = foo();
    # if I'm here, then foo() succeeded. at least, it didn't throw an error.
  };