Select Code to Download

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 ) );