Select Code to Download

my @aoh = ( 
    {k0 => 'v0' }
...
  , {k2 => 'v2' }
  , {k3 => 'v3' }
);

$val = [grep {(keys $_)[0] eq 'k2'} @aoh]->[0]{'k2'};

my %h = map {%$_} @aoh;

## now its just:
say $h{'k2'};