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
[download]

# 2  email.com
# 1  myemail.com
# 1  youremail.com
[download]

But if you are asking the Monks to write a script for you, you should address your request to a job site. This is not www.free-code-a-matic.com

Hmmm... as i scribbled this, the OP's content (and its title) disappeared. For the information of those who follow, the original said:

hie everyone

Need your help, i have a file which consists list of email addresses as below example:-

# jaja@email.com
# kaka@myemail.com
# baba@youremail.com
# lala@email.com
[download]

I need a script to separate the name and email domian,and count the number of unique domain from the file

Based on the file above, i need a script which can give below result:-

# 2 email.com
# 1 myemail.com
# 1 youremail.com
[download]

thanks you in advanced

anakin30:
Please don't remove original content after posting a question or answer! It's counterproductive for all and rude as well!

Update: Wow. I 'thunk' consider and GrandFather had the job done before I could finish doing so!

What have you tried and where are you having trouble? What Perl books have your read? Have you looked in the Tutorials section here? Important words to watch out for are split, regex and hash.

Just looking for some hint to start

I just split the email addresses by the @ symbol, then pushed each user into an array that is keyed to the domain. After that I counted the values of each array in the hash and printed the results.

#!/usr/bin/perl
use strict;
use warnings;

my %email_domains;
for my $email_address (@email_list) {
  my ($before_at, $after_at) = split('@',$email_address);
  push @{$email_domains{$after_at}}, $before_at;
}

for my $domain (sort keys %email_domains) {
  my $count = @{$email_domains{$domain}};
  print "$domain: $count";
}
[download]

anakin30, I would have done something similar to Lady_Aleena's approach, but I would have just stored the count in the hash (see code below). Of course, my approach wouldn't have stored all the email addresses for later use like her code does.

use strict;

my $file = "email_list.txt";
my %domains;

open(DATA,"<",$file) || die "Unable to open file '$file':  $!\n";

while (<DATA>) {
  my ($user,$domain) = split /\@/;
  $domain =~ s/^\s*//s;  # Stripping out leading white spaces
  $domain =~ s/\s*$//s;  # Stripping out trailing white spaces
  $domains{lc($domain)}++;
}

close(DATA);

foreach my $domain (sort keys %domains) {
  print "$domains{$domain} $domain\n";
}
[download]

Just another example of TIMTOWTDI.

UPDATE - Made a minor spelling correction.

my %classification;

# Scan and "bucket" the items
for each $thing (@source_of_things) {
  # If the thing needs to be transformed, truncated, or pattern-matche
+d,
  # do that here to get the unique part you're interested in.
  $classification{$unique_part_of_thing}++;
}

# Analyze and report.
foreach $item (keys %classification) {
  print "$item found $classification{$item} time",
         ($classification{$item}==1 ? '' : "s"), "\n";
  # Or whatever you need to do with each unique item and the number of
  # times it was found.
}
[download]