Help for this page
while (<DATA>) { unless ( /\A#|^$/ ) { ... } } }
while (<DATA>) { next if /^\s*#/; ... $hash{$f[0]} = $f[1]; } }