drunken pulldown menu!! please help

  $pulldown{ftype} = [freq1,freq2,freq3];
 
  $pulldown{obssrc} = [source1, source2,source3];
 
  $pulldown{obssrc2} = [source1, source2,source3];
  $pulldown{datatype} = [ascii, binary, image];
 
 
 sub createpulldown { 
  print "<table><tr>";
  $tablex = 0; $tabley = 0;
  foreach $key (sort keys %pulldown){
    $tablex++; 
    if ($tablex > 5) { $tablex = 0; print "</td></tr><tr><td>"; } 
    else { print "<td>"; } 
    my @array = @{$pulldown{$key}}; my $default = ${$key};
    print "\n<font face=verdana size=-2>$key:\n"; 
    if ($key eq "ftype" || $key eq "obssrc" || $key eq "obssrc2" || $key eq "obssrc3") { 
      print $q->br, $q->scrolling_list
      (  -name=>$key, -values=>[@array],
         -defaults=>$default,-size=>1,
 #       -onchange=>'OnChange(this.form.select1);',
 #    -onchange=>"window.location=('xycoords.cgi?s=&showlast='+this.options[this.selectedIndex].value)"
     -onchange=>"window.location=('?&$key='+this.options[this.selectedIndex].value+'$cgistring')"
      ), $q->p;
    } else { print $q->br, $q->scrolling_list
        (    -name=>$key, -values=>[@array],
         -defaults=>$default,-size=>1,
        ), $q->p;
    } #if $key    
    print "</font></td>"; 
  } #for each
  print "</tr></table>";
   return 0;
 } #sub create pulldown