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; 
    }

##</code><code>##

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"; 
  } 
} 

##</code><code>##

my %info; 
 
open(DB, "db.txt") || die "Could not open the database: $!"; 
while (<DB>) { 
  my @info=split /[\s|,]+/,$_; 
  my $scott=shift @info; 
 
  while (my $key=shift @info) { 
    $info{$scott}{$key}=shift @info; 
  } 
} 
close DB;