#!/usr/bin/perl
# Sort lines in file by reverse lexicographic order.
# (c) Vlado Keselj 2004

my @A;

while (<>) {
      chomp;
      $_ = join('', reverse(split(//,$_)));
      push @A, $_;
}

foreach (sort(@A)) {
     $_ = join('', reverse(split(//,$_)));
     print "$_\n";
}