open $db, "<ncatalog.db" or die "no catalog\n";

my %db;

while (<$db>) {
    chomp;
    my ($key, $ver) = split ":", $_, 2;
    $db{$key} = $ver;
}
close $db;

open $csv, "<PKW8001-153.csv" or die "can't open PKW8001-153.csv\n";
while (<$csv>) {
    chomp;
    my @line = split ",";
    $line[-1] = $db{$line[2]} if (exists $db{$line[2]});
    $line[2] = '"' . $line[2] . '"';
    print join(",", @line), "\n";
}