open CONFIG, "$hol_file" || die "Cannot open log for writing. $!"; while() { next if /^\s*$/ || /^\#/; chomp; if(/([^:\s]+):\s+(.*)/) { push @{$countries{$1}}, "$2"; } }