And then, why not use the built-in tool to do that:

$sth->execute; # I always set RaiseError so I don't have to keep sayin
+g "or die..."
my $result = $sth->fetchall_arrayref(); # calls ->finish too
for (@$result) {
  print qq{@$_<br><br>};
}
[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.