my @month_names = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
  my @months = map { $_+1 } 0..$#month_names;
  my %labels;
     @labels{ @months } = @month_names;

  popup_menu(
    -values => \@months,
    -labels => \%labels,
  );