perl -e ' for( 0.03, 0.4, 5, 10 ) { print int(10**$_), "\n" } ' 1 2 100000 10000000000