#!/usr/bin/env perl
use Modern::Perl;

my %k;
open my $fd2, '<', 'file2.txt' or die $!;
while(<$fd2>){
    chomp;
    if( /([a-z]),(\d+)/ ){  # one lowercase character, a comma, and digits
        $k{$1} = $2;
    }
}
close $fd2;

open my $fd1, '<', 'file1.txt' or die $!;
while(<$fd1>){
    my @w = split /, /;
    if( $k{$w[3]} and $w[5] =~ /$k{$w[3]}/ ){
        print;
    }
}
close $fd1;