Help for this page
print join( "|", keys %found), "\n";
for my $key (keys %found) ( print "$key: $found{$key}\n"; }