#!/usr/bin/perl

use warnings;
use strict;
use vars qw/ %descs %salesAccts /;

open(UPRODFILE,'<uprod.csv');

while (<UPRODFILE>) {
    chomp;
    my $prodID = "";
    my $desc = "";
    my $salesAcct = "";
    ($prodID,$desc,$salesAcct) = split(/,/);
#    print "$prodID -- $desc -- $salesAcct \n";
    $descs{$prodID} = $desc;
    $salesAccts{$prodID} = $salesAcct;
}

close(UPPRODFILE);
#foreach my $i (sort keys %descs) {
#    print "$i == $descs{$i} == $salesAccts{$i} \n";
#}
1;