params to hash vs params to hash_ref

gistfile1.pl

#!/usr/bin/env perl
use strict;
use warnings;

use Benchmark qw/cmpthese/;

sub hash {
	my $self   = shift;
	my %params = @_;
	return;
}

sub hash_ref {
	my $self   = shift;
	my $params = {@_};
	return;
}


cmpthese(-2, {
	hash     => sub { hash(    "self", first => 1, second => 2, third => 3) },
	hash_ref => sub { hash_ref("self", first => 1, second => 2, third => 3) },
});


__END__
perl 5.12.3:
             Rate     hash hash_ref
hash     198194/s       --     -24%
hash_ref 261897/s      32%       --