use Modern::Perl
open trained , 'D://ARP//libsvm-3.12//families//antioxidant//training.scale';
open predict , 'D://ARP//libsvm-3.12//families//antioxidant//testing.scale';
my $counter =  0;
while (<trained>) {
	my $train = $_;
while (<predict>) {
	#print $_;
	
	my $predict = $1;
	if ($train = $predict) {
	#print $train;
	$counter = $counter + 1
}
}
}
print $counter;