$ perl -e"@f=4..5;print scalar( 1,2,3,@f) "
2
$ perl -e"@f=4..5;print scalar( 1,2,3,) "
3