Help for this page
$HoA{ join('_',$swit,$server) } = \@ip_g;
push @{ $HoA{ join('_',$swit,$server) } }, @ip_g;