#!/usr/bin/perl -w
use Benchmark qw(cmpthese);

sub single { $foo = 'foo' }
sub double { $foo = "foo" }
cmpthese (10000000, {
        single => sub { single() },
        double => sub { double() }
});