my $p = MyPackage->new(); 
$$p{Hello} = "world"; 
print $p->to_string, "\n";