sub ExtractHopHostIp{
    my $refaLines=shift;

    my @Fields;
    my @FoundHops;

    print @$refaLines,"\n";
        
    for (@$refaLines) {
        s/[ \t]+/ /g; # remove duplicate blanks and tabs
        @Fields=split / /,$_;
        splice(@Fields,4); # get fields from the array
        push @FoundHops,@Fields;

    }

    @FoundHops = join " ",@FoundHops;

    print @FoundHops,"\n";

}