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