Hi perl_lover, Try this using module,

    use strict;
    use warnings;
    use Sort::Versions;
    my @version = ("1.2.3","1.3.4","1.2.31","1.12","1.12.1","1.12.12")
+;

    my @l = sort { versioncmp($a, $b) } @version;
    $,=", ";
    print @l,"\n";
__END__
1.2.3, 1.2.31, 1.3.4, 1.12, 1.12.1, 1.12.12,
[download]