if (($item[0] ne "") && ($item[1] ne "")){ 
      $items{"$item[0]"} = "$item[1]"; 
      foreach my $key (keys %items) { 
        print "$scottnum\t $key \t $items{$key}\n"; 
      } 
      undef %items; 
    }