Select Code to Download

use Data::Dumper;
# your initialization code here
print Dumper \%hash;

# WRONG
$hash{"LISTS"}=[([]) x $length]

$hash{LISTS} = [ map [], 1..$length ];

my %hash;

...

# also works for direct assignment:
$hash{LISTS}[4][0] = 'other new item';