#/usr/bin/perl
use strict 'vars';

{
my @words;
my $file_in;
my $file_test;
my @columns;
my @datafile;
my $line;
my @koroesi;
my %koroesi;
my $currentline;

$file_in = "svc_test_sdl.txt";
$file_test = "koroesi.txt";

open (INPUT, "$file_in") or die %!;
open (TESTFILE, "$file_test") or die %!;

@datafile = <INPUT>;
close (INPUT);

@koroesi = <TESTFILE>;
close (TESTFILE);
%koroesi = @koroesi;

{
foreach $line (@datafile){
	chomp $line;
	(@columns) = split (/ /,$line);

    $currentline = $columns[1];

	print "$currentline\n";

	if (exists($koroesi{$currentline}))
	{
		s/$currentline/\[$currentline\]/;
	}
}	
}
}