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