our $hearts;

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

    tie $tie1, "Tie1";

    bless $tie1;