sub get_hosts {
    my @parts = split ":", shift;
    return $parts[1];
}

@OutRecord = sort { 
   get_hosts($b) <=> get_hosts($a)   
} @OutRecord