DDumper csv (
    in     => *DATA,
    sep    => "|",
    filter => sub {
        $_[1][0] =~ m/^\s*#/ && @{$_[1]} == 1 ? 0 : 1;
        },
    );