Help for this page
my %sth; foreach( qw( guest name shoe_size ) ) { ... SELECT distinct email from contacts where $_ = ? order by email }) or warn "Error preparing for $_: " . $dbh->errstr . "\n"; }
$sth{$column} ||= $dbh->prepare( make_select( $column ) );