$HoA{ join('_',$swit,$server) } = \@ip_g;

##</code><code>##

       push @{ $HoA{ join('_',$swit,$server) } }, @ip_g;