use strict;
use warnings;

my @examples = (
    {
        name => 'Test Eins',
    },
    {
        name => 'Test Zwei',
    },
);

my @do_examples = (0, 1);

for my $foo (@examples[@do_examples]) {
    my $testname = $foo->{name}; # line 17
    print "$testname...\n";
    local $@;
    eval {
        die 'hallo';
        17;
    } or do {
        warn;
    };
}