while($i<$N) {
  my $tmp = <STDIN>;
  my @a = split " " => $tmp;
  $data->{$a[2]}->{$a[3]} += 1;
  $min->{$a[2]} = $a[3] if ($a[3] < $min->{$a[2]});
  $i++;
}