Select Code to Download

use strict;
use warnings;
...
}

print "\n", Dumper \@array;

1 2 3: 44 55 66 22
4 5 6: 44 55 66 22
...
            ]
          ]
        ];

[ [ $i, $j, $k ], [ 44, 55, 66, 22 ] ]
^ ^  ^   ^   ^    ^ ^   ^   ^   ^
...
| |  + - $arr->[0][0]
| + - $arr->[0]
+ - $arr