Select Code to Download

#!/usr/bin/perl
use strict;
...
  my $count = @{$email_domains{$domain}};
  print "$domain: $count";
}