my $desc = get_bug_description(4, 'first.csv', 'second.csv');

sub get_bug_description
{
    my ($id, $key_file, $desc_file) = @_;
    
    my $cve = get_bug_cve($id, $key_file);
    
    open my $file, '<', $desc_file;
    
    while (<$file>)
    {
        return $1
            if /"$cve","([^"]+)/;
    }
    
    close $file;
    
    return;
}

sub get_bug_cve
{
    my ($id, $key_file) = @_;
    
    open my $file, '<', $key_file;
    
    while (<$file>)
    {
        return $1
            if /$id,(.+)/;
    }
    
    close $file;
    
    return;
}
[download]