print $tied->(5), $/;