while (my $rule = chomp(<in>) {
  my $sentences = $pairs{$rule};
  # Do what you want with the data returned
}