{
    package SomeClass;

    sub new1 { bless {} }
    sub new2 { bless \%hash }

    sub does_it_work { print "Yes, it works\n" }
}

$obj1 = SomeClass->new1;
$obj1->does_it_work;

$obj2 = SomeClass->new2;
$obj2->does_it_work;