%player = {
5 => 2,
4 => 3,
}

##</code><code>##

%shop = {
2 => 4,
5 => 22,
}

##</code><code>##

my @availablePosts = grep{my $item = $_;foreach my $k (keys %$_) {0 unless $player{$k} >= $item->{$k}}1;} @posts;