my @ips = qw(100.100.100.100 1.1.1.1);

my @sorted = map { $_->[0] } sort { $a->[1] cmp $b->[1] }
 map { [ $_, sprintf("%03d" x 4, split(/\./, $_)) ] } @ips;

# OR
my @sorted = map { $_->[0] } sort { $a->[1] cmp $b->[1] }
 map { [$_, pack("C*", split(/\./, $_))] } @ips;