while ( my $ref = $sth->fetchrow_hashref() ) {
  print $q->popup_menu(
     -name => "some_random_name",
     -values => [keys %$ref],
     -labels => $ref,
     -default => 'default_key_from_ref',
     );
  print $q->br;
}