print $tied->(5), $/;
{
    print $tied->(10), $/;
}