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

cmpthese(1000000, {
                 double => \&dq,
                 single => \&sq,
                 none   => \&nq
                });

sub dq {
  my $str = "a" x 100;
  my $new_val = "$str";
}

sub sq {
  my $str = "a" x 100;
  my $new_val = '$str';
}

sub nq {
  my $str = "a" x 100;
  my $new_val = $str;
}


##</code><code>##

            Rate double single   none
double 1030928/s     --   -10%   -15%
single 1149425/s    11%     --    -6%
none   1219512/s    18%     6%     --