Simplest is to drop the useless array. Also, you want $sth->fetchrow_arrayref.

    while ((my $choice) = $sth->fetchrow_arrayref())
    {
        push(@{ $selections{$_} },$choice);
    }
[download]

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.