my $sub = $tied;
    print $sub->(5), "\n";