#!/usr/bin/env perl

use strict; use warnings;
use Benchmark qw/ cmpthese /;
cmpthese(10000000, {
        shift => sub { my $volume = shift; my $message = shift; },
        inline => sub { my ($volume, $message) = @_ } 
        }
);

##</code><code>##

bruce:0:~/tmp $ ./p.pl
            Rate inline  shift
inline 3300330/s     --   -29%
shift  4629630/s    40%     --