Select Code to Download

while(<>) {
   ($a, $b, $c, $d) =~ /(...)(...)(...)(...)/;
   $hash{$a}{$b}{$c}{$d}++;
}

 foreach $key (keys %hash) {
   foreach $key1 (keys %{$hash{$key}}) {
...
      }
    }
  }