#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;
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks is a proud member of the The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.