A program that sorts input lines in reverse order.
#!/usr/local/bin/perl @input = <STDIN>; @input = reverse (sort (@input)); print (@input);