Select Code to Download

my @entries;
my $idlist = join(',',map("'$_'",@keys));
my $sth = $dbh->prepare("SELECT * FROM mumble WHERE id IN($idlist)");
...
while (my $aref = $sth->fetchrow_arrayref()) {
    push(@entries,$aref);
}