sub new
{
shift;
my $x={@_};
}

##</code><code>##

my $foo=new obj(baz=>foo,bar=>quux)