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