#or
my @sorted = map {join".",unpack'C*',$_} sort map{pack"C*",split/\./} @ips; 
#or, in v5.6.0
my @sorted = map {sprintf"%vd",$_} sort map{eval "v$_"} @ips;