my $m=($genome1{$_}->[1]-$genome2{$_}->[1]);
     my $n=($genome1{$_}->[0]-$genome2{$_}->[0]);