foreach (@hosts){
   my ($host,$port)=split /:/;
   etc..
}