foreach my $lig (%{$ligHash})
{
    DoDump($lig);
}
sub DoDump
{
	my $ligand = shift;
	open TEMP, ">>", "ligandDump.txt";
	print TEMP Dumper($ligand);
	close TEMP;
}