Perl sux.

gistfile1.txt

#!/usr/bin/env perl
use Benchmark qw(:all);
use strict;
use warnings;

use constant STUFF => ( qw/
  TRO BAR OLOL JAZ
  TRO BAR OLOL JAZ
/ );

cmpthese( 1E6, {
    insane        => sub { call_insane(STUFF); call_insane(STUFF); }
    , sane_saved  => sub { my $args = {STUFF}; call_sane($args); call_sane($args); }
    , sane_wash   => sub { call_sane({STUFF}); call_sane({STUFF}); }
  }
);

sub call_insane { my %args = @_; }
sub call_sane { my $args = $_[0]; }