for my $row (0..9) {
    for my $col (0..9) {
       print "{$key} => [$row][$col] = $hash{$key}[$row][$col] \n"
    }
 }