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