Select Code to Download

sort modtype_2430.srt |uniq -c

my @sorted = sort @array;
my $last = shift @sorted;
...
  }
}
print "$count\t$last\n";

my %count;
foreach my $e (@array)
...
{
  print "$count\t$e\n";
}