for my $key (keys %found) (
  print "$key: $found{$key}\n";
}