my %hash = do {
    my @key   = $input->value_names();
    (@key, $input->possible_values())[ map { $_ => $_ + @key } 0 .. $#key ]
};