#!perl

use strict;
use warnings;

my $readfile = 'blah.csv';
my $writefile = 'bleh.csv';

open my $fh, "<", $readfile;

my $row = <$fh>;
my $found = 0;
my @cols;
my (@col1,@col2);
my @words = split(/\s+/,@col1);

open my $wfh, ">", $writefile or die "yikes: $!";

while (<$fh>) {
	tr /a-z/A-Z/;
	chomp;
	my @cols = split /\;/;
	push @col1, $cols[0];
	push @col2, $cols[1];
	my @words = @words + 1;

	if ( @col2 =~ m/$words[$_](\d+)/ ) {
		$found++;
	}

	print $wfh "$row';'@words';'$found";

	$found = 0;
	@words = 0;
}