Hash to array of arrays

[Jerry Preston]

Hi!,

I have the following hash:

  for $j ( 1..20 ) {
    for $i ( 0..$DAT{ good_setups }{ $id } )  {
      $pin{ order  }{ $i }{ $j } = $DAT{ pin    }{ $id }{ $i }{ $j }{ 0
} if $DAT{ pin }{ $id }{ $i }{ $j }{ 0 } > 0;
      $pin{ depth }{ $i }{ $j } = $DAT{ height }{ $id }{ $i }{ $j }{ 0 }
if $DAT{ pin }{ $id }{ $i }{ $j }{ 0 } > 0;
    }
  }

I need it in the following format:

  my @data = ( [ '01', '02', '03', '04', '05', '06', '07', '08', '09',
'10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', ],
                       [qw/ 15  15  15  16  16  18  18  19  21  22  22
22  23  23  24  25  25  26  26  27/ ],
                       [qw/ 15  15  16  16  17  18  19  20  21  21  22
22  23  23  24  24  24  24  24  25/ ],
                       [qw/ 21  21  22  22  23  24  24  25  25  27  29
29  29  30  31  31  32  32  36  37/ ],
                       [qw/ 15  15  16  16  16  17  17  18  18  19  20
20  21  21  23  23  23  23  23  24/ ],
                       [qw/ 18  18  19  19  19  20  22  22  23  24  25
25  26  27  28  28  28  29  29  30/ ],
                       [qw/-11 -11 -11 -10 -10  -9  -8  -7  -6  -6  -3
-3  -3  -2  -2  -1  -1  -1   1   4/ ],
                       [qw/-11 -11 -11  -8  -8  -8  -8  -7  -5  -4  -3
-3  -1  -1  -1   0   1   2   4  13/ ],
                       [qw/-11 -11 -11 -10  -9  -9  -8  -7  -6  -6  -3
-3  -3  -2  -2  -1  -1   0   0   1/ ],
                       [qw/  9   9  10  10  10  11  11  12  13  16  17
17  17  19  20  20  20  36  39  49/ ],
                       [qw/  6   6   6   6   6   7   8   9  10  11  12
12  13  14  15  15  15  16  17  17/ ],
                       [qw/  5   5   6   6   6   7   8   9   9  10  12
12  14  14  14  15  15  16  16  17/ ],
                     );

Is there an easy way to do this?

Thanks,

Jerry