perl

$sth = $dbh->prepare("SELECT id, v FROM t");
$sth->execute;

my %row;
$sth->bind_columns(\( @row{ @{$sth->{NAME_lc} } }));

while ($sth->fetch) {
  print "$row{id} $row{v}\n";
}