perl -le'@_=1..5;undef @_;print scalar@_;'
0
perl -le'@_=1..5;@_=();print scalar@_;'
0