Select Code to Download

use strict;

...
foreach (0 .. 9) {
  print join(':', keys %{$hashes[$_]}), "\n"
}

6:3:7:9:2:8:1:4:0:5
6:3:7:9:2:8:1:4:0:5
...
6:3:7:9:2:8:1:4:0:5
6:3:7:9:2:8:1:4:0:5
6:3:7:9:2:8:1:4:0:5

0
1
...
7
8
9

my @hashes = map{{}} (0 .. 9);