Select Code to Download

while (($this, $that) = each(%list)) {
    push @array, $this, $that;
}
@array = sort { $a <=> $b } @array;