foreach (my ($key, $value) = each (%take_counts)) {
    print OUTPUT "$host\t$key\t$value\n";
}

##</code><code>##

my %take_counts = (
     foo => 1,
     bar => 2,
     baz => 3,
);

print "while:\n";

while (my ($key, $value) = each (%take_counts)) {
    print "\t$key\t$value\n";
}

print "foreach:\n";

foreach (my ($key, $value) = each (%take_counts)) {
    print "\t$key\t$value\n";
}

__END__
while:
	bar	2
	baz	3
	foo	1
foreach:
	bar	2
	bar	2

##</code><code>##

my $dbh = DBI->connect("DBI:mysql:database=$database:host=$host",$db_user,$db_pass,{RaiseError=>1})|| die "$DBI::errstr\n";

##</code><code>##

my $dbh = DBI->connect("DBI:mysql:database=$database:host=$host",$db_user,$db_pass) || die "$DBI::errstr\n";

# or
my $dbh = DBI->connect("DBI:mysql:database=$database:host=$host",$db_user,$db_pass,{RaiseError=>1});