#!/usr/bin/perl5
use CGI::Carp qw(fatalsToBrowser);

use strict;

open(PL, "pricelist.txt") || die "Can't open pricelist";
my @pl = <PL>;
close(PL);

my %PL = ();
dbmopen(%PL, "pricelist", 0777) || die "Can't open pricelist DBM: $!";

for(@pl) {
my @split = split /\|/;
chomp($split[-1]);
if (defined($PL{$split[1]})) {
	$PL{$split[1]} = "$PL{$split[1]}|$split[2],$split[3]";
}

else {
	$PL{$split[1]} = "$split[2],$split[3]";

}
}
my $count = 0;
print "There are ", scalar keys %PL, "items in the DB.\n";
dbmclose(%PL);