#!/usr/bin/perl -w

use strict;
use Benchmark qw(cmpthese);

sub shifter {
    my $a=shift;
    my $b=shift;
    my $c=shift;
    my $d=shift;
    my $e=shift;
    my $f=shift;

    return $a*$b*$c*$d*$e*$f;
}

sub assigner {
    my ($a,$b,$c,$d,$e,$f)=@_;

    return $a*$b*$c*$d*$e*$f;
}

sub direct {
    return $_[0]*$_[1]*$_[2]*$_[3]*$_[4]*$_[5];
}

cmpthese(-5,
        {
             'shifter' => sub {shifter(1,2,3,4,5,6);},
             'assigner' => sub {assigner(1,2,3,4,5,6);},
             'direct'   => sub {direct(1,2,3,4,5,6);},
         }
     );