Select Code to Download

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

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