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