our *hearts;

    sub Tie1::TIESCALAR {
        bind( hearts, "christian.love" );
    }

    tie $tie1, "Tie1";

    bless $tie1;


##</code><code>##


    our $hearts;

    sub Tie1::TIESCALAR {
        $hearts =~ /christian.love/;
    }

    tie $tie1, "Tie1";

    bless $tie1;