while(<DB>) { 
  chomp; 
  @record = split(/\t/); 
  $scottnum = $record[0]; 
  @details = split(/\|/, "$record[1]"); 
  foreach $detail (@details) { 
    @item = split(/,/, "$detail"); 
    if (($item[0] ne "") && ($item[1] ne "")){ 
      ###########################################
      $items{$scottnum}{"$item[0]"} = "$item[1]";
      ########################################### 
    } 
  } 
} 
foreach my $scottnum (keys %items) { 
  for my $key (keys %{$items{$scottnum}}) { 
    print "$scottnum\t $key \t $items{$scottnum}{$key}\n"; 
  } 
}