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";