for (sort keys %found) {
  say "YAY! " . $found{$_};
}