print join( "|", keys %found), "\n";

##</code><code>##

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