tie my %$hash, Class::Whatever; $hash->{foo} = "bar"; $hash->SomeMethod(); #### my $obj = new Class::Whatever; $obj->{foo} = "bar"; $obj->SomeMethod();