#!/usr/bin/perl -w
use strict;
use Benchmark qw(cmpthese);

sub returnhashref {
 my %a=();
 for (1 .. 1000) {
   $a{$_}=$_;
 }
 return \%a;
}

cmpthese(-3,{
        'Ref' => sub { my $a=returnhashref(); return $$a{245}},
        'newhash' => sub { my $a=returnhashref(); my %a = %$a; return $a{245}}});