use DBIx::Simple;
$db = DBIx::Simple->connect(...);

fetchrow_*-ish:

my $result = $db->query('SELECT * FROM shop_items');
while (my $row = $result->hash) {
    ...
}
[download]

Or, if it is okay to slurp all rows into memory, selectall_*-ish:

for my $row ($db->query('SELECT * FROM shop_items')->hashes) {
    ...
}
[download]

Note that slurping everything into memory is a bad idea in most cases. The same can be said about SELECT *.

Juerd
- http://juerd.nl/
- spamcollector_perlmonks@juerd.nl (do not use).