# Error handling assumed.

my $sql = " ... ";
my $sth = $dbh->prepare_cached( $sql );
$sth->bind_columns( \(my ($foo)) );

my @data;
while ($sth->fetch) {
    push @data, $foo;
}
$sth->finish;