Language Basics Perl

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