my %count; $count{ lc $_ }++ for map { $_->{targetL} } @$results; my $winner = $count{ "akzent" }; my @matched = grep { lc $_->{targetL} eq $winner } @$results;