local $/;    # slurp mode

##</code><code>##

chomp @data;

##</code><code>##

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