Help for this page
print $where{$_};
foreach (sort keys %count) { if ($count{$_} == 1) { ... print "@where\n"; } }