use strict;
use warnings;

my $name = '';
my $vorname = 'full';
my $plz = 1;
my $tel = 0;
my $tel49 = undef;

my $vector = (!$name) || 2;
$vector |= (!$vorname) || 4;
$vector |= (!$plz) || 8;
$vector |= (!$tel) || 16;
$vector |= (!$tel49) || 32;

printf "%06b\n", $vector;