my $tumble = init_tumble(25)
...
while(some condition)
{
    $tumble->();
    ...
    do some stuff
    ...
}