@alist=qw/1 50 2 658 74 256 21/;
($greatest) = sort {$b<=>$a}@alist;
print $greatest;