use strict;
my @list;
@list = sort {$a <=> $b} @list;