Select Code to Download

my @values = qw/
                One
...

printf "<option value='$_'>%${longest}s\n", $_ foreach @values;

my @values = qw/
                One
...
                       '-value' => [ keys %popup ],
                       '-labels' => \%popup,
                      ),"\n";