$complex1->set( $complex1->add( $complex2->get() ); 

##</code><code>##

$file->position = 0 if $file->eof;

##</code><code>##

$file->set_position( 0 ) if $file->eof();

##</code><code>##

$thingy->set_date_from_string("..."); 
$thingy->set_date_from_array( localtime ); 
$thingy->set_date_from_array_ref( [localtime] );

##</code><code>##

package MyClass;

my %instances;

sub new{
    my( $class, $attr1, $attr2, attr3 ) = @_;
    my $self = bless {}, $class;
    return $instances{ $self } = [$attr1, $attr2, $attr3];
}

##</code><code>##

package MyClass;

my( %attr1, %attr2, %attr3 );

sub new{ 
    my( $class, $attr1, $attr2, attr3 ) = @_;
    my $self = bless {}, $class;
    $attr1{ $self } = $attr1;
    $attr2{ $self } = $attr2;
    $attr3{ $self } = $attr3;
    return $self;
}