Select Code to Download

for my $key ( keys %hash ) {
    for my $aref ( @{ $hash{ $key } } ) {
...
  3 => [[30, 29, 28], [20, 19, 18], [10, 9, 8], [5, 4, 3]],
  4 => [[31, 30, 29], [21, 20, 19], [11, 10, 9], [6, 5, 4]],
}