#!/usr/bin/perl 

use strict;
use warnings;

use Benchmark qw[cmpthese timethese];

my @A = qw[this that these those];
my $result;

open my $null, '>', '/dev/null' or die;

$result = timethese(
    -5, 
    {   
        test      => sub { print {$null} "@A" },
        with_for  => sub { print {$null} $_ for @A },
        with_join => sub { print {$null} join '', @A },
    }
);

cmpthese( $result, 'none' );