use strict;
use warnings;
use Benchmark qw(cmpthese);

no warnings 'void';

sub do_something {
    for (1..10){
        $_*$_;
    }
}

cmpthese -1, {
    eval    => sub { eval { for (1..10){$_*$_} } },
    sub     => sub { do_something() },

};
__END__
         Rate  sub eval
sub  446836/s   --  -0%
eval 446836/s   0%   --