$ perl -le '$oh_really = 1,000,000; print "$oh_really?"'
1?