perl -MData::Dumper -wle'sub foo{undef};@a = foo() or die "leer";print Dumper \@a'