#!/usr/bin/perl

use Benchmark qw(cmpthese);
use List::Util qw(reduce);


cmpthese (-5,
    {
        'initial' => sub {
            my @numbers = (2,3,4,5);
            my $total = 1;
            for(@numbers){
            $total = ($total * $_);
            }
        },
        'listutil' => sub {
            my @numbers = (2,3,4,5);
            reduce{ $a*=$b } @numbers;
        },
        'eval'    => sub {
            my @numbers = (2,3,4,5);
            eval join "*", @numbers;
        },
        '*='     => sub {
            my @numbers = (2,3,4,5);
            my $total=1;
            $total *= $_ for @numbers;
        },
        'map'     => sub {
            my @numbers = (2,3,4,5);
            my $total=1;
            map { $total *= $_ } @numbers;
        },        
        'reducing'     => sub {
            my @numbers = (2,3,4,5);
            $numbers[0] *= pop @numbers while ( @numbers > 1 );
        },
    });