for(0..100){
    my $x = $tied;
    print $x->(5), "\n";
}

##</code><code>##

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

##</code><code>##

print $tied->(5), $/;
$r->{subref} = sub { return 2 * $_[0] }; # This is a new anonymous subref
{
    print $tied->(10), $/;
}

##</code><code>##

sub FETCH {
    my $r = shift;

    print "Checking for pause ...";

    return $r->{subref} = $r->{subref};
}