#!/usr/bin/perl -w
use strict;
my %items;

open(DB, "db.txt") ||
			die "Could not open the database: $!";

while(<DB>)	{
	chomp;
	my @record = split(/\t/);
	my $scottnum = shift @record;
	my @details = split(/\|/, shift @record);
	foreach my $detail (@details)	{
		my @item = split(/,/, $detail);
		if ( ($item[0]) && ($item[1]) ){
			$items{$scottnum.'-'.(shift @item)} = shift @item;
		}
	}
}

foreach my $key (sort (keys %items) ) {
	my ($sn,$mk) = split ('-',$key); 
	print "key: $key \tmk: $mk\t sn: $sn item: $items{$key}\n";
}