sub test {
    $_[0]= 'foo';
}
while( 1 ) {
    for(1..1024) {
        test();
    }
    sleep( 1 );
}