sort modtype_2430.srt |uniq -c

##</code><code>##

my @sorted = sort @array;
my $last = shift @sorted;
my $count = 1;
foreach my $e (sort @array)
{
  if ($last eq $e)
  {
    $count++;
  }
  else
  {
    print "$count\t$last\n";
    $count=1;
    $last=$e;
  }
}
print "$count\t$last\n";

##</code><code>##

my %count;
foreach my $e (@array)
{
  $count{$e}++;
}
while (my($e,$count)=each(%count))
{
  print "$count\t$e\n";
}