print "<pre>\n", Dumper(grep /xung03/, keys %emails), "\n</pre>\n";