#!/usr/bin/perl
use warnings;
use strict;
my $lig;my $a;my $b;my $c;my $d;my $e;my $f;my $g;my $h;my $i;my $l;my $m;my $n;my $o;my $p;my $q;my $r;my $s;my $t;my $u;my $v;my $w;my $x;my $y;
my $lig2;my $a2;my $b2;my $c2;my $d2;my $e2;my $f2;my $g2;my $h2;my $i2;my $l2;my $m2;my $n2;my $o2;my $p2;my $q2;my $r2;my $s2;my $t2;my $u2;my $v2;my $w2;my $x2;my $y2;
my $a3;my $b3;my $c3;my $d3;my $e3;my $f3;my $g3;my $h3;my $i3;my $l3;my $m3;my $n3;my $o3;my $p3;my $q3;my $r3;my $s3;my $t3;my $u3;my $v3;my $w3;my $x3;my $y3;
my @array1;my @array2;my $reader="";my $reader2="";
my $file1=$ARGV[0]|| die "type file1 and file2 and output";
my $file2=$ARGV[1];
my $file3=$ARGV[2];
open my $out, ">$file3";
open my $in,"<$file1";
while ($reader=<$in>){push @array1, $reader;}
close $in;
open my $in2,"<$file2";
while ($reader2=<$in2>){push @array2, $reader2;}
close $in2;
print $out $array1[0];
foreach my $element(@array1){
if ($element ne $array1[0]){
if ($element=~ /^(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\n/){
$lig=$1;$a=$2;$b=$3;$c=$4;$d=$5;$e=$6;$f=$7;$g=$8;$h=$9;$i=$10;$l=$11;$m=$12;$n=$13;$o=$14;$p=$15;$q=$16;$r=$17;$s=$18;$t=$19;$u=$20;$v=$21;$w=$22;$x=$23;$y=$24;
foreach  my $element2(@array2){
if ($element2 ne $array2[0]){
if ($element2=~ /^(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\n/){
$lig2=$1;$a2=$2;$b2=$3;$c2=$4;$d2=$5;$e2=$6;$f2=$7;$g2=$8;$h2=$9;$i2=$10;$l2=$11;$m2=$12;$n2=$13;$o2=$14;$p2=$15;$q2=$16;$r2=$17;$s2=$18;$t2=$19;$u2=$20;$v2=$21;$w2=$22;$x2=$23;$y2=$24;
if ($lig eq $lig2){
$a3=$a-$a2;$b3=$b-$b2;$c3=$c-$c2;$d3=$d-$d2;$e3=$e-$e2;$f3=$f-$f2;$g3=$g-$g2;$h3=$h-$h2;$i3=$i-$i2;$l3=$l-$l2;$m3=$m-$m2;$n3=$n-$n2;$o3=$o-$o2;$p3=$p-$p2;$q3=$q-$q2;$r3=$r-$r2;$s3=$s-$s2;$t3=$t-$t2;$u3=$u-$u2;$v3=$v-$v2;$w3=$w-$w2;$x3=$x-$x2;$y3=$y-$y2;
print $out "$lig\t$a3	$b3	$c3	$d3	$e3	$f3	$g3	$h3	$i3	$l3	$m3	$n3	$o3	$p3	$q3	$r3	$s3	$t3	$u3	$v3	$w3	$x3	$y3\n";
}}}}}}}
close $out;