#!/usr/bin/perl -w
use Benchmark qw(cmpthese);
cmpthese (10000000, {
        single => sub { $foo = 'foo'},
        double => sub { $foo = "foo"}
        });