$/ = "\n";;
print for map{ 
    join '.', unpack 'C*', $_ 
} sort map{ 
    pack 'C*', split '\.'
} qw[1.1 11.2.3 2.3 11.2.1];;

1.1
2.3
11.2.1
11.2.3