Select Code to Download

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

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