Select Code to Download

my %table;

...
      }
   }
}

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