#--------------------------#

      our @emotion                  = qw(
 love  shame  hurt  blame             );
     our @devotion                  = qw(
 ropes pain  locks chains             );

     tie $me, 'Up',
      \@emotion;
    tie $you, 'Down',
      \@devotion;
   tie $us, 'Together',
     [\($me, $you)];

    package Together;           sub TIESCALAR {
    our($heart,$soul)            = @_; return
   bless $soul, $heart       } sub FETCH { return ${
                                shift @{ +shift } } }

       package Up;              sub TIESCALAR {
   our($heart,$emotion)          = @_; return
  bless $emotion, $heart     } sub FETCH { return
                                shift @{ +shift } }

      package Down;             sub TIESCALAR {
   our($soul,$devotion)          = @_; return
  bless $devotion, $soul     } sub FETCH { return
                                shift @{ +shift } }

#--------------------------#

package main; print <<FADE;

  even $you are not able
    to keep $me away

    because for $us,
  there is but one cure
  it comes not from $me
    and not from $you

  but if $you fall away
  will I still be bound
        by $us?

FADE