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