#!/usr/bin/perl -w
use strict;
use warnings;

my @varNames = qw { name vorname plz tel tel49 };

my @vars;
while (<DATA>) {
        print;
        chomp;
        (@vars) = split /\s*,\s*/;
        print "\t";
        for my $var (@varNames) {
                print $var, ":", shift @vars ? "good " : "bad ";
        }
        print "\n\n";
}
__DATA__
john, stuart, some_plz, 123456, 234557
john, stuart, some_plz, 123456,
john, stuart, some_plz, 123456
john, stuart, some_plz,, 234557
, stuart, , 123456, 234557
,,,123456, 234557
john,,some_plz,, 234557