$ perl -le 'print for 1_000_000, 0x1_000_000'
1000000
16777216