gistfile1.txt

#!/usr/bin/perl

use strict;
use warnings;

use Benchmark;

sub list {
	return scalar @_;
}

sub reference {
	return scalar @{$_[0]};
}

my @a = 1 .. 1_000_000;

my %subs = (
	list      => sub { return list(@a) },
	reference => sub { return reference(\@a) }
);

for my $sub (keys %subs) {
	print "$sub => ", $subs{$sub}->(), "\n";
}

Benchmark::cmpthese -1, \%subs;