[ { '1' => { 'Author' => 'Mike', 'idAuthor' => '1' },
    '2' => { 'Author' => 'Cecil', 'idAuthor' => '2' } } ]


##</code><code>##

{ '1' => 'Mike',
  '2' => 'Cecil' }


##</code><code>##

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);


##</code><code>##

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/