my @sorted = map  { $_->[0] }
             sort { $a->[1] <=> $b->[1] }
             map  { [$_, int sprintf("%03.f%03.f%03.f%03.f", split(/\./, $_))] }
             @unsorted;

##</code><code>##

Loading ips
Loaded 1000 ips
Benchmark: running Fastnum, Faststr, each for at least 10 CPU seconds...
   Fastnum: 11 wallclock secs (11.28 usr +  0.00 sys = 11.28 CPU) @  7.98/s (n=90)
   Faststr: 12 wallclock secs (11.34 usr +  0.00 sys = 11.34 CPU) @  8.29/s (n=94)

##</code><code>##

my @sorted = map { $_->[0] }
             sort { $a->[1] <=> $b->[1] }
             map {      my ($x,$y)=(0,$_);
                        $x=$_ + $x * 256 for split(/\./, $y);
                        [$y,$x]}
             @unsorted;

##</code><code>##

Loading ips
Loaded 1000 ips
Benchmark: running Faster, Faststr, each for at least 10 CPU seconds...
    Faster: 11 wallclock secs (11.09 usr +  0.00 sys = 11.09 CPU) @ 12.98/s (n=144)
   Faststr: 11 wallclock secs (11.24 usr +  0.00 sys = 11.24 CPU) @  8.27/s (n=93)

##</code><code>##

Loading ips
Loaded 100000 ips
Benchmark: timing 5 iterations of Faster, Fastnum, Faststr...
    Faster: 58 wallclock secs (57.90 usr +  0.21 sys = 58.11 CPU)
   Fastnum: 83 wallclock secs (82.57 usr +  0.38 sys = 82.95 CPU)
   Faststr: 83 wallclock secs (82.74 usr +  0.00 sys = 82.74 CPU)