foreach ( CMP <INPUT> ){                                          
       print $_; 
}

sub CMP {  
        my($a0) = $a -> [2];                      
        my($b0) = $b -> [2];                      
        $b0 <=> $a0
}      

##</code><code>##

while (<INPUT>){
     split ( $ip, $num1, $num2);
     printf "%18s %10s %10s\n", $ip, $num1, $num2 ;
}

##</code><code>##

@sorted = map { $a->[2] cmp $b->[2]
    || $a->[2] <=> $b->[2]
    chomp; [split]
    <INPUT>}