my @values = qw/
                One
                Two
                Three
                Four
                Zoobdude(_Been_to_Dennys?_:)
               /;

my $longest = 0;

map { $longest = length > $longest ? length : $longest } @values;

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