Help for this page
my $m=(${@{$site1{$_}}}[1]-${@{$site2{$_}}}[1]); my $n=(${@{$site1{$_}}}[0]-${@{$site2{$_}}}[0]);