while (my $line1 = <$fhone>) {
  chomp $line1;
  my ($key,@attributes1) = split /\s+/,$line1;