use Benchmark "cmpthese";

sub pre {
    my $str = " " x 2**19;
    $str = "";
    $str .= "aaaa" for 1..2**17;
}

sub std {
    my $str = "";
    $str .= "aaaa" for 1..2**17;
}

cmpthese( -1, {
    'pre' => 'pre()',
    'std' => 'std()'
});