my $name;
my $vorname;
my $plz;
my $tel;
my $tel49;


if ($name) {
	if ($vorname) {
		if ($plz) {
			if ($tel) {
				if ($tel49) {
					$name , $vorname , $plz , $tel and $tel49
				}
				$name , $vorname , $plz and $tel
			}
			$name , $vorname and $plz
		}
		$name and $vorname
	}
	elsif ($plz) {
		if ($tel) {
			if ($tel49) {
				$name , $plz , $tel and $tel49
			}
			$name , $plz and $tel
		}
		$name and $plz
	}
	elsif ($tel) {
		if ($tel49) {
			$name , $tel and $tel49
		}
		$name and $tel
	}
	elsif ($tel49) {
		$name and $tel49
	}
	only $name
}
elsif ($vorname) {
	if ($plz) {
		if ($tel) {
			if ($tel49) {
				$vorname , $plz , $tel and $tel49
			}
			$vorname , $plz and $tel
		}
		$vorname and $plz
	}
	only $vorname
}
elsif ($plz) {
	if ($tel) {
		if ($tel49) {
			$plz , $tel and $tel49
		}
		$plz and $tel
	}
	only $plz
}
elsif ($tel) {
	if ($tel49) {
		$tel and $tel49
	}
	only $tel
}
elsif ($tel49) {
	only $tel49
}