#!/usr/bin/perl
use Dumpvalue;

open (LABELS, "labellist.txt") or die "I could not get at labellist.txt as input";


my %info;
while (<LABELS>) {
        my ($lot,$prod) = m/(\S+)\s+(\S+)/;
        $info{$lot} = $prod;
}

my $dumper = new Dumpvalue;
$dumper->dumpValue(\%info);