@sorted = sort {
@a = split /\./, $a;
@b = split /\./, $b;
$a[0] <=> $b[0] or 
$a[1] <=> $b[1] or 
$a[2] <=> $b[2] or 
$a[3] <=> $b[3];
} @unsorted;