$cgi->popup_menu(-name => 'alter', -values => [sort keys(%fields)], -labels => \%fields);