I don't know of any other algorithm for that. However, I can offer a less verbose syntax.

foreach $key (@keys) {
    $sth->execute($key);
    $columns_ref=[@{$sth->fetchrow_arrayref()}];
    push(@entries, $columns_ref);
}
[download]

I'm not sure if that'll save you much in performance, but it does save screen space. (Plus it avoids a couple extra symbol table entries, which can't be a bad thing, right?)

=cut
--Brent Dax
There is no sig.