while (<>) {
    next if m/^\s+$/; # <-- add this line
    my @cellen = ( split /,/, )[ 3, 4 ];