Help for this page

Select Code to Download


  1. or download this
    %player = {
5 => 2,
4 => 3,
}
  2. or download this
    %shop = {
2 => 4,
5 => 22,
}
  3. or download this
    my @availablePosts = grep{my $item = $_;foreach my $k (keys %$_) {0 un
+less $player{$k} >= $item->{$k}}1;} @posts;