#!/usr/bin/perl -w
#
use diagnostics;
use strict;
use warnings;
my @data= ( "1.1.2.3", "1.10.2.3", "1.10.2.3.1", "1.1.1.1.1.1.1", "1.12", "1.0");
my $strg;
my @hold=();
my $element;

foreach  $element (@data)	{
	@hold=split(/\./,$element);
$strg="";
		foreach my $item (@hold)	{
			$strg.=sprintf("%03d.", $item);
			}
		$strg=substr($strg, 0, (length($strg)-1));
	$element=$strg;
	}
print "Unsorted:\n";
foreach $element (@data)	{
	print "$element\n";
	}
@ data = sort {$a cmp $b} @data;
print "\n\nSorted\n";
foreach $element (@data)	{
	print "$element\n";
	}

##</code><code>##

Unsorted:
001.001.002.003
001.010.002.003
001.010.002.003.001
001.001.001.001.001.001.001
001.012
001.000


Sorted
001.000
001.001.001.001.001.001.001
001.001.002.003
001.010.002.003
001.010.002.003.001
001.012