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