use strict; use warnings; my %hash = map { chomp; split /\s+/, $_, 2 } ; print "$_, $hash{$_}\n" foreach keys %hash; __DATA__ host1 1.1.1.1 host2 1.2.3.5