$VAR1 = {
          'R1' => {
                  },
          'R2' => {
                  }
             ...
        };
$VAR1 = {
          'R1' => {
                  },
          'R2' => {
                  }
             ...
        };
         ...

##</code><code>##

foreach my $lig (keys %{$ligHash})
{
    findIntersection($ligHash->{$lig}, $lig);
}