sub _Load_IP
{
if(! open (PATH_FILE_FH, "$Path_File"))
  {
     print "Failed to Open input PATH_REPORT File: $Path_File\n";
     exit 1;
  }

 while(<PATH_FILE_FH>)
  {
   my $data =$_;
   chomp($data);

    my($pname,@val) = split(/\s+/,$data);
    my($Starpnt,$Endpnt) = split(/_/,$pname);
    $key = $Startpnt;

  #$IP_hash{$key} .= exists $IP_hash{$key} ? map{$IPcountList{$_}++ }"@val" : @val;

  
   $IP_hash{$key} .= "@val";


}
   
 close(PATH_FILE_FH);

} #End of  _Load_IP()