while (<DATA>) {
    my @f = (undef, split /,/);