my $values_list = [ sort(keys(%$hash_ref)) ];
my $labels_href =
  { map {$_->{idAuthor} => $_->{Author}} values(%$hash_ref) };
print $cgi->popup_menu(-name=>'menu_name',
                  -values=>$values_list, -labels=>$labels_href);