package Junk2;

sub new {
    my( $class, $attributes ) = @_;
    my $self = bless {}, $class;

    %{ $self } = %{ $attributes };

    return $self;
}
package main;

my $obj2 = Junk2->new( { a=>1 , b=>2, c=>3 } );