my $sth = $dbh->prepare("SELECT foo, bar, baz FROM bif");

##</code><code>##

   my @cols = qw(foo bar baz);
   my $sth = $dbh->prepare("SELECT " . join(', ', @cols) . " FROM bif");

##</code><code>##

   foreach $field (@cols) {