use strict;
use warnings;

my %domains;

$domains{(split /@/)[-1]}++ for <DATA>;
print map "# $domains{$_}  $_", sort keys %domains;


__DATA__
jaja@email.com
kaka@myemail.com
baba@youremail.com
lala@email.com