#!/usr/local/bin/perl
@input = <STDIN>;
print (@input);
@input = reverse (sort (@input));
print("This is the reverse lists");
print (@input);

print ('press ENTER to EXIT');
$in = <STDIN>;