Select Code to Download

my @sorted_col_names = sort { length($a) <=> length($b) || $a cmp $b }
                       keys %$cols;
...
}

print("\n");