my @sorted=sort { $sorter->($a,$b) } @unsorted;