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