while(<>){
  chomp;
  $_ =~ s/\r+$//;
  if ($_ eq ""){
    $i = 0;
    if (($En ne "")&&($Heb ne "")){
      if (exists $EngSents{$En}){
	$EngSents{$En}++;
      }
      else {
	$EngSents{$En} = 1;
      }
      if (exists $HebSents{$Heb}){
	$HebSents{$Heb}++;
      }
      else{
	$HebSents{$Heb} = 1;
      }
    }
  }
  elsif ($i == 0){
    $En = $_;
    $i = 1;
  }
  elsif ($i == 1){
   $Heb = $_; 
  }
  else{
    die "error in input file.\n";
  }
}

foreach $En (keys %EngSents){
  print $En . ":" . $EngSents{$En} . "\n";
}


foreach $Heb (keys %HebSents){
  print $Heb . ":" . $HebSents{$Heb} . "\n";
}