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