Select Code to Download

my @a = qw/1 2 2.2 2.13 2.1.7 3.4a 10.4a.3b.8/;
my @sortables = map { [grep /[^\.]/, split/([\.a-z])/, $_] } @a;
print join "\n", map join(' ', @{$_}), @sortables;

my @list = qw/1 10.4a.3b.8 2.2 2 2.13 3.4a 2.1.7 /;

print join "\n", sort compare @list;
...
        redo;
    }        
}

my @list = qw/1 10.4a.3b.8 2.2 2 2.13 3.4a 2.1.7 /;

my @cache = map { [grep /[^\.]/, split/([\.a-z])/, $_] } @list;
...
        redo;
    }        
}