#! /usr/bin/perl

use strict;
use warnings;
use Benchmark qw( cmpthese );

my $self = bless {}, 'SomeClass';
my $string = "$self";

my %a = ( $self => 0 );
my %b = ( $string => 0 );

cmpthese(-1, {
    self    =>  sub { $a{ $self } = $a{ $self } + 1 },
    string  =>  sub { $b{ $string } = $b{ $string } + 1 },
});

__END__

# on my perl 5.8.7
           Rate   self string
self   156393/s     --   -83%
string 927942/s   493%     --