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

my @c = (
    [{ xyz => undef }],
    { xyz => undef },
    [{ xyz => undef }],
);

my $d = [ 13, 17, 42, 69, 4711 ];

my $nr = 1;

if ($nr > $#$d) { # Zeile 15
    print "schuhu\n";
}
else {
    if (defined $c[$nr]->[0]->{xyz}) { # Zeile 19
        print "definiert\n";
    }
    else {
        print "nicht definiert\n";
    }
}