Select Code to Download

my $yanks = $baseball{yankees} || "";
my $mets  = $baseball{mets}    || "";
...
        print "$_ => $baseball{$_}\n";
    }
}

if ( $baseball{yankees}=($baseball{yankees} || ""). ($baseball{mets} |
+| "") )  {
    foreach $_ (keys %baseball) {
        print "$_ => $baseball{$_}\n";
    }
}