C:\>perl
@a = (0, undef, 2);
print "anzahl: ", scalar(@q), "\n";
if (defined $a[1]) {
    print "ja\n";
}
use Data::Dumper;
print Dumper \@a;
^Z
anzahl: 0
$VAR1 = [
          0,
          undef,
          2
        ];