use strict;
use warnings;

my @posts = (
    {1 => 4, 3=>5},
    {1 => 2, 2 => 3, 3 => 3},
    {1 => 2, 3 => 6},
    {1 => 4, 3 => 2, 4 => 2},
    );

my %player = (1 => 3, 2 => 5, 3 => 7);
my @availablePosts;

for my $shop (@posts) {
    next if grep {! exists $player{$_} or $player{$_} < $shop->{$_}} keys %$shop;
    push @availablePosts, $shop;
}

for my $post (@availablePosts) {
    print join (', ', map {"$_ => $post->{$_}"} sort keys %$post), "\n";
}

##</code><code>##

1 => 2, 2 => 3, 3 => 3
1 => 2, 3 => 6