perl排序

对如下ip进行排序：

134.102.9.87
134.102.5.43
134.102.1.2
134.102.6.7

可以使用如下perl代码实现：

use strict;
use warnings;
use 5.14.2;

open (my $fh, "<ips.txt") or die "$!";
my @ips;
my $i;
while(<$fh>){
    $_ =~ s/^\s+|\s+$//g;
    $_ =~ s/\n\r|\n|\r//g;
    $ips[$i++] = $_;
}

my @r;
my @r2;

my @ips_sorted = sort {
              @r  = (split/\./, $a) and
              @r2 = (split/\./, $b) and
              $r[0] gt $r2[0] or
              $r[1] gt $r2[1] or
              $r[2] gt $r2[2] or
              $r[3] gt $r2[3]
              } @ips;
foreach my $key (@ips_sorted){
    say $key;
}
close $fh;