use warnings; use strict; package FOO; use overload '""' => \&stringify; my $ref = {name=>'rob', age=>'old'}; bless $ref, 'FOO'; print "$ref\n"; sub stringify { return "My name is " . $_[0]->{name} . " and I am " . $_[0]->{age}; }