LINE:
while ( my $line = <$datafile> ) {
    my @fields = split ',', $line;
  FIELD:
    for my $field ( @fields ) {
        if ( foo() ) {
            next FIELD;
        } elsif ( bar() ) {
            next LINE;
        } else {
           more();
        }
    }
}