sub test
{
    $_[0] = 'foo';
}

for (0..10)
{
    test();
    sleep(1);
}