Select Code to Download

my %rec;
my $sth = $dbh->prepare ("select * from foo");
...
while ($sth->fetch) {
    print "foo.c_foo = $rec{c_foo}\n";
    }

cmpthese (5, {
    hashref     => sub {
...
          Rate hashref bindcol
hashref 1.31/s      --    -76%
bindcol 5.49/s    320%      --