LONGING: my $eyes; open(TOSEE, "$you") or die "for you are not here.";
if($eyes eq 'blind') {
        push @me,<TOSEE>; $that{'i'} = 'am nothing' unless $you;
}              
else {           
        $me = *TOSEE;
        $love = tell $me;
        do { $you ? $love : $me; }
        seek TOSEE, $love, $you;
        my $heart = <$me>;
        if($you ? $love : $me) {
                $us = join /$love/, [$you,$me,$heart];
                $we = "complete";
        }
        $eyes = "open";  
}
redo LONGING until $we eq "complete";  # fixed thanks to an anonymousmonk.