Select Code to Download

my $val = $hash{$key};

my ($val) = map $_->{value}, grep $_->{key} eq $key, @$data;