while (<$fhone>) {
  chomp;
  my ($key,@attributes1) = split;
  ...