#!/usr/bin/perl

use strict;
use warnings;

my %hash = ();
my $length = 10;

for my $index ( 0 .. $length-1 ){
  $hash{COUNTS}[$index] = 0;
  $hash{LISTS}[$index] = [];
}

print '%hash ', Dumper \%hash;