foreach my $key_expal (keys %expal) {
    $sth->execute($key_expal) || die $sth->errstr;
. . .