Select Code to Download

$VAR1 = {
          'ARRAY(0x19333b0)' => [
...
                                7
                              ]
        };

my @Index_Is_The_Weight=(
   [],  # Zero weight - no items
...
   ([]) x 5, # Five empty items
   ["quux"]
);