while(<$fh>) {
    chomp;
    next if /^#/;
    next if /^\s*$/;
    ...