$ perl -E 'say 1e6'
1000000