my %data;
while (<IN>) {
  chomp;
  my @vals = split /;/;
  $data{$vals[0]}{$vals[1]}++;
}