perl -wle"for ('00001'..'10000') { print join ' ', ($_) x 20; }" > temp.tmp