$ perl -E'@a=qw( a b c ); say 0+@a; shift(@a); say 0+@a;'
3
2