I'm not sure (haven't tested) but it might be that perl is confused by you using 'continue' as a a function name...

'continue' is also the keyword used to immediately start the next iteration of your while loop...

Try using 'kontinue' as the function name to see what happens...