my @numbers= (6, 1, -3, 7, -1290);
@sorted= reverse sort { $a <=> $b } (@numbers);
print @sorted;