SUUTIN STAMM 2/60AST;SUUTIN STAMM 2,0/60 AST.           VIIRAOSA (PK-1)
SUUTINKÄRKI SPRAY TP 9501 E-SS;SUUTIN  VALME HOL0125624 TP 9501    E-SS
O-RENGAS 790X12 FPM;UPPOPUMPPU PUMPEX KV56
O-RENGAS 99X7 FPM;RULLAUSPÄÄ B NORMAALI
KÄSISAHA SANDV 2600-22-XT L=22IN;KÄSISAHA 22 IN 2600-22-XT          SANDVIK
VEITSI STANL 10-010;MATTOVEITSI STANLEY 2-10-099 99E
VEITSENTERÄ STANL 11-916 L=62MM SUORA;MATTOVEITSENTERÄ  STANLEY 0-11-921    (5KPL/PAK)  PITT. 49
KAAVAIN TIZIT 620-20 H10;TASOKAAVAIN SANDVIK 620-25

##</code><code>##

SUUTIN STAMM 2/60AST;SUUTIN STAMM 2,0/60 AST.           VIIRAOSA (PK-1);3;2
SUUTINKÄRKI SPRAY TP 9501 E-SS;SUUTIN  VALME HOL0125624 TP 9501    E-SS;5;2
O-RENGAS 790X12 FPM;UPPOPUMPPU PUMPEX KV56;3;0
O-RENGAS 99X7 FPM;RULLAUSPÄÄ B NORMAALI;3;0
KÄSISAHA SANDV 2600-22-XT L=22IN;KÄSISAHA 22 IN 2600-22-XT          SANDVIK;4;3
VEITSI STANL 10-010;MATTOVEITSI STANLEY 2-10-099 99E;3;2
VEITSENTERÄ STANL 11-916 L=62MM SUORA;MATTOVEITSENTERÄ  STANLEY 0-11-921    (5KPL/PAK)  PITT. 49;5;2
KAAVAIN TIZIT 620-20 H10;TASOKAAVAIN SANDVIK 620-25;4;1

##</code><code>##

#!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;
}

##</code><code>##

Applying pattern match (m//) to @array will act on scalar(@array) at C:\blah\vertailu2.pl line 27.
Argument "LSAIDHA 2FA SFF ;ASD 2FA AASDA" isn't numeric in array element at C:\blah\vertailu2.pl line 27, <$fh>
Argument "3FASFL FAAL;DAOIADJAD" isn't numeric in array element at C:\blah\vertailu2.pl line 27, <$fh> line
Argument "ASFD ADD AD7A ALUYAD;ADLIHADBA A DADASFD DADD" isn't numeric in array element at C:\blah\vertailu2.pl line 27, <$fh> line 4.