A1 A2 A3 A4
A1
A2
A3
A4
 
##</code><code>##

A1;A4
A2;A3
A2;A4
A1;A3

##</code><code>##

A1 A2 A3 A4
A1 0 0 1 1
A2 0 0 1 1
A3 1 1 0 0
A4 1 1 0 0

##</code><code>##

#!/usr/bin/perl 

$data_file="aa1";
open(DAT, $data_file) || die("Could not open file!");
@raw_data=<DAT>;
close(DAT);

#print $raw_data[0];

$data_file2="aa2";
open(THAT, $data_file2) || die("Could not open file!");
@raw2_data=<THAT>;
close(THAT);
foreach $data (@raw2_data)
{

@siv =split(";",$data);
if  (($siv[0])== ($siv[1]))
{
print "1";
}
else {
print "0";
}
}