~linux> perl -e '@array = 5..9; push @array,10; print scalar @array;'