#!/usr/bin/perl
use strict;
use warnings;
use Benchmark qw(cmpthese);   

my $count = 8000;
my @array = (3.14) x 1000;

sub want {
    return wantarray ? @array : scalar @array;
}

sub nowant {
    return @array;
}

cmpthese($count*50, {
    "scalar_want"   => sub { my $test = want()   },
    "scalar_nowant" => sub { my $test = nowant() },
} );
cmpthese($count, {
    "array_want"    => sub { my @test = want()   },
    "array_nowant"  => sub { my @test = nowant() },
} );