$string = join'', map int rand 10, 1 .. 40;;

@array = unpack '(A6)*', $string;;

print for @array;;
264811
795150
543830
002804
757197
623650
5346