my @values = ();
foreach my $item (@element_liste) {
  push (@values, $item->{name});
} # foreach
print popup_menu(-name => 'irgendwas', -values = \@values);