Help for this page
#!/usr/bin/perl use warnings; ... cmp_deeply([@sorted], [@exp]); done_testing();
((($a <=> 0) & 3) <=> (($b <=> 0) & 3)) || ($a <=> $b)