#!/usr/bin/perl
use strict;
use Array::Compare;
use Data::Show;

my $limit = 10000000000000;
my @opf1; my @opf2;
open(OPF1, "/tmp/DMAOPF.TXT");
my $opf1 = 0;
while(<OPF1>){
	my $l = $_;
	chomp($l);
	my @line = split("\t",$l);
	push(@opf1, \@line);
	$opf1++;
	last if $opf1 == $limit;
}
close(OPF1);

open(OPF2, "/tmp/DMAOPF2.TXT");
my $opf2 = 0;
while(<OPF2>){
	my $l = $_;
	chomp($l);
	my @line = split("\t",$l);
	push(@opf2, \@line);
	$opf2++;
	last if $opf2 == $limit;
}
close(OPF2);

my $comp1 = Array::Compare->new(WhiteSpace => 0);
for(my $c=0; $c<@opf1; $c++){
	my @d = $comp1->full_compare($opf1[$c],$opf2[$c]);

	# print join("\t", "OPF1-$c:", @{$opf1[$c]}) . "\n";
	# print join("\t", "OPF2-$c:", @{$opf2[$c]}) . "\n";
	foreach my $d (@d){
		#next if $d =~ /19|20|21/;
		print join("\t", $d, "'" . $opf1[$c]->[$d] . "'" , "'" . $opf2[$c]->[$d] . "'") . "\n";
	}
	# print "----------------------\n";
	
}








1;