use Benchmark;

$bar = '';
timethese( 0, {
   doubles => sub { eval "$bar" },
   singles => sub { eval '$bar' } } );