my  @array;
my @src = qw(Zeile1 Zeile2);

for(0..3){
    my $var = defined $src{$_] ? $src[$_] : '';
    push @array, $var;
}