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]

use version;
my @version = ( "1.2.3", "1.3.4", "1.2.31", "1.12", "1.12.1", "1.12.12
+" );
@version =
  map { $_->[1] } sort { $a->[0] cmp $b->[0] } map { [ qv($_), $_ ] } 
+@version;
__OUTPUT__
1.2.3, 1.2.31, 1.3.4, 1.12, 1.12.1, 1.12.12
[download]

Something similar to the version module will be part of Perl 5.10.0 . In the example bellow, note that $a could also have been '1.2.3' or other forms of version number (see perldoc).

use version;

# Version comparison

# '1.2.3', 'v1.2.3',  1.2.3

my $a = qv(  'v1.2.3'   );
my $b = qv(  '1.2.29'   );

# Compare
print +($a>$b) ? $a : $b;
[download]

use strict;
use warnings;

chomp(my @version = <DATA>);

print join "\n",
@version = 
    map { join '.', unpack 'C*', $_ }
    sort
    map { pack 'C*', split /\./, $_ } @version;

__DATA__
1.2.3
1.3.4
1.2.31
1.12
1.12.1
1.12.12
[download]

Perhaps How do I do a natural sort on an array? would help, or one of our fine Tutorials...

HTH,

How do I sort a file with IP Addresses and another text column? contains the IP sorting. try to apply the same in your code.