Help for this page
my %table; ... } } }
my $file = 'xxx'; for my $length (1..$max_length) { ... # printing stuff using $table{$file}{$unique_d}[$length] } }