note
artist
<code>
use Data::Dumper;
while(<DATA>){
chomp;
my ($email,$domain) = split /\t/;
push @{$hash{$domain}},$email;
}
print join "\n", keys %hash,"\n";
print "Email:",$hash{'yahoo.com'}[0].'@yahoo.com';
__DATA__
ahlnpstx gmail.com
dghjklorsvwy hotmail.com
cdegijlmqrstvwxz yahoo.com
abegijknostv yahoo.com
abcefghjlqrtuyz hotmail.com
acghiknoprux hotmail.com
abceghlmrstwxy gmail.com
cdehiklmnqtwxyz gmail.com
bdjklmortvw hotmail.com
bdegjkmrsuxz gmail.com
</code>
<div class="pmsig"><div class="pmsig-72806">
--Artist
</div></div>
484917
484917