use Data::Dumper;
...
print Dumper $tmp;

##</code><code>##

my $value = $tmp->{key};

##</code><code>##

sub getSelectedItem {
    my $elem = shift;
    my $options = $elem->{element}->options;
    for (my $n = 0; $n < $options->length; $n++) {
        if ($options->item($n)->selected) {   
            return $options->item($n)->innerText;
        }
    }
    return undef;
}

my $selected_value = getSelectedItem($tmp);