A side note: use strict; is your friend. It helps catch things like

$sthH->execute or die "Couldn't execute query: ".$sthG->errstr;;
    ^                                                ^
[download]

Problems like this can really confound attempts to debug failures.