my $sorter=sub { $_[0] <=> $_[1] };