#!/usr/bin/perl -w

my %assoc;
while (<>) {
  if (! exists ($assoc{$_})) {
    $assoc{$_} = 1;
  } else {
    $assoc{$_} ++;
 }
}

foreach my $i (reverse sort keys %assoc) {
    print $i;
}



