#!/usr/bin/perl --
use strict;
use warnings;
use Benchmark 'cmpthese';

my @a = map log, 1..1e6;

cmpthese( -2, {
    1 => sub {[ map $_ * 4, @a ]},
    2 => sub {[ map $_ / (1/4), @a ]},
});
cmpthese( -2, {
    1 => sub {[ map $_ * 4, @a ]},
    2 => sub {[ map $_ / (1/4), @a ]},
});
cmpthese( -2, {
    1 => sub {[ map $_ * 4, @a ]},
    2 => sub {[ map $_ / (1/4), @a ]},
});
cmpthese( -2, {
    1 => '[ map $_ * 4, @a ]',
    2 => '[ map $_ / (1/4), @a ]',
});
cmpthese( -2, {
    1 => '[ map $_ * 4, @a ]',
    2 => '[ map $_ / (1/4), @a ]',
});
cmpthese( -2, {
    1 => '[ map $_ * 4, @a ]',
    2 => '[ map $_ / (1/4), @a ]',
});
__END__