} else {
      my $file = $file[0];
      $file = $file[1] if defined $rec->[1];
      printf "%s %s %s\n",$segment,$row,$file;
    }