Select Code to Download

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

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

sub getSelectedItem {
    my $elem = shift;
...
}

my $selected_value = getSelectedItem($tmp);