@sorted=sort{$a <=> $b} @unsorted;