for (my $j=0; $j<$#arrayFromCSV; $j++) {
	for (my $i=0; $i<$#wkArray; $i++) {
		if ("$arrayFromCSV[$j]" =~ /$wkArray[$i]/g) {
			print "$wkArray[$i+1]\n";
			 }
		}
	}