Select Code to Download

my @min_keys = sort { length($a) <=> length($b) || $a cmp $b } keys %$
+hashref;
my $min = length $min_keys[0];
...
}
# maxstr & random
print join "\t", $min_keys[-1], $min_keys[ rand @min_keys ];

my @list = qw(zero one two three four five six seven eight nine ten el
+even twelve);

...
    }
    return ($maxstr, (@min[0..$pos])[rand $pos]);
}