@bad = sort {$a++ <=> $b} (1,2);