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