for $key (sort {$a <=> $b} keys %sortListArr) ...