open (FLHD,"$0") ;
  while (my $line = <FLHD>) {
    my ($x , $y , $z) = split("::" , $line) ;
  }