Select Code to Download

$VAR1 = {
          '34k' => {
...
           etc...

        };

foreach my $lig (%{$ligHash})
{
...
    print TEMP Dumper($ligand);
    close TEMP;
}

$VAR1 = '34k';
$VAR1 = {
...
                  }
            etc..
        }