{ ## some block at some level
    my obj = Class->new( initX, initY );
    
    obj->setZ( obj->getX() + obj->getY() );
}

##</code><code>##

{ ## some block at some level
    my %hash = ( X => initX, Y => initY, Z => 0 );
 
    $hash{Z} = $hash{X} + $hash{Y};
}