$ perl -wMstrict -E '@_ = (1, 2, ()); say 0+@_'
2