use strict;
use warnings;
use Benchmark 'cmpthese';

cmpthese(-1, {
    'eval'   => \&eval_code,
    'noeval' => \&no_eval_code,
});

sub eval_code {
    my $x = 0;
    for (reverse 0..9) {
        eval {
            some_more_code ($_);
        };
        if ($@) {
            error_sub();
        }
    }
}

sub no_eval_code {
    for (reverse 0..9) {
        if ($_==0) {
            error_sub();
        }
        else {
            some_more_code ($_);
        }
    }
}

sub some_more_code {
}

sub error_sub {
}