+ my @HNS = ();
+ open my $cfg, "<$hnlistFile" || mydie "Cannot read $hnlistFile";
+ while (<$cfg>) {
+ chomp;
+ push(@HNS, split(' ')) if (! /^#/);
+ }
+ close($cfg);
+ mydie "No HNs defined in $hnlistFile" if ($#HNS < 0);
+
+ open my $out, ">$velistFile" || mydie "Cannot write to $velistFile";