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

##</code><code>##

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

##</code><code>##

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

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