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

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