Are you talking about something like:

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

which allows you to do stuff like:

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

?