Select Code to Download

use strict;
use warnings;
...
        $array->[$hash->{$keys->[$dim]}] = $text;
    }
}

$ARRAY1 = [
            ( undef ) x 2,
...
              ]
            ]
          ];