$ cat mana.pl
use strict;
use warnings;

my @cards = (
   <<< snip >>>
);

my @players = (
   <<< snip >>>
);

# Show which players can cast which spells

for my $rPlayer (@players) {
    print "$rPlayer->{name} can cast: ";
    my $cnt=0;
    for my $rCard (@cards) {
        if (can_cast($rPlayer, $rCard)) {
            ++$cnt;
            print "$rCard->{name} ";
        }
    }
    if (!$cnt) {
        print "NOTHING!";
    }
    print "\n";
}

sub can_cast {
   <<<snip>>>
}

$ perl mana.pl
Joe can cast: Fireball Lightning bolt
Audrey can cast: Ice wall