in reply to while/push to map, data structure confusion

# Do your prepare() and execute() up here ...

$sth->bind_columns( \my( $id, $option, $data) );

my %stuff;
while ($sth->fetch)
{
    push @{$stuff{$id}}, {
        option => $option,
        option_data => $data,
    };
}

[download]

That's how the DBI docs say to optimize a fetch.

------
We are the carpenters and bricklayers of the Information Age.

Then there are Damian modules.... *sigh* ... that's not about being less-lazy -- that's about being on some really good drugs -- you know, there is no spoon. - flyingmoose

I shouldn't have to say this, but any code, unless otherwise stated, is untested

In Section Seekers of Perl Wisdom