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