use strict;
use warnings;
use Benchmark;


my @array;
push @array, "Test string" for 1..20000;

my $nonarray = "Test string";

sub passarray {
    return @array;
}


sub passscalar {
    return $nonarray;
}

my $count = 500000;

timethese ( $count, {
    "Scalar" => sub { my $test = passscalar() },
    "List"   => sub { my $test = passarray() } 
} );