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