my %baseball = (
    mets      =>   "new york",
    orioles   =>   "baltimore",
    twins     =>   "minnesota"
);

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