use strict;
use warnings;

my @s = ( "1.0", "1.10", "1.2", "3", "2.0.1", "4.1.1.1", "1.0.1", "1.1", "1.0.2", "2.0" );

my @t = map { join ".", map { sprintf '%d', $_ } split(/\./,$_)  }
        sort
        map { join ".", map { sprintf '%05d', $_ } split(/\./,$_)  }
        @s;

print "IN:  ", join("  ", @s), "\n";
print "OUT: ", join("  ", @t), "\n";

__END__
IN: 1.0  1.10  1.2  3  2.0.1  4.1.1.1  1.0.1  1.1  1.0.2  2.0
OUT: 1.0  1.0.1  1.0.2  1.1  1.2  1.10  2.0  2.0.1  3  4.1.1.1