Try Sort::Key::Multi:

use Sort::Key::Multi 'u3_keysort';
                    # u3 => 3 unsigned integer keys

my @sorted = u3_keysort { /^(\d+)\.(\d+)\.(\d+)$/ } @versions;
[download]

Or you can also use Sort::Key::OID:

use Sort::Key::OID qw(oidsort);
my @sorted = oidsort @versions;
[download]