Select Code to Download

my %count;
foreach my $element( @name ) {
  ++$count{$element};
...
foreach my $element( keys %count ) {
  print "$element = $count{$element}\n";
}