Okay, here is it new's years eve and I am writting code.
I think I should get extra XP just for that alone : )

Anyway, what I came up with was:
<OUTER LOOP>
  {
    undef(@selections);
    while ((my $choice) = $sth->fetchrow_array())
      {
        push(@{ $selections{$_} },$choice);
      }
  }
<END OUTER LOOP>

I tried that arrayref idea, but then I had to deference it
again and it just seemed unnecessary unless I misunderstood
what you were trying to say.

Anyway, this all worked great and I thank all who helped out.
[download]