use threads;
use threads::shared;

our $life : shared;

our $souls = threads->new(
        sub#mit
        {
                our %selves = ( to => 'eachother' );
        }
);

$souls->join;

our $love = sub#ject
{
        our $hearts = 2;# joy
        our $fears = undef;
};

&$love;

die and $souls->join;#forever