#!/usr/local/bin/perl
@input = <STDIN>;
chop(@input);
@input = reverse sort (@input);
print (@input);

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