Select Code to Download

  sort { length($a) <=> length($b) or $a cmp $b } @data;

  minima { length($a) <=> length($b) or $a cmp $b } @data;

sub minima(&@)
{
...

    @cur
}