#!/usr/bin/perl
require 'uprod.pl';

while (<>) {
    chomp;
    print "$_, $descs{$_}, $salesAccts{$_}\n"
}