{
   package MyClass;
   sub new { bless {}, shift }
   sub doit { print("Method called\n"); }
}

my $o = MyClass->new();
my %hash = ( object => $o );
$hash{object}->doit();  # Prints "Method called"