$ perl -e'for (1..10) { printf "%04d", int rand 10000 for 1..3; print $/ }'
514418728718
307337438051
439351593615
060710058137
425610029405
005219485294
477480663085
055060660839
412479203930
462907707151
$