use Data::Dumper;
print Dumper grep /xung03/, keys %emails;

##</code><code>##

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