http://www.perlmonks.org?node_id=1043556


in reply to Re^3: wantarray alternative
in thread wantarray alternative

Oops. Thanks for catching that :)
return ( @out == 1 && ! wantarray ) ? $out[0] : @out;