in reply to perl - loop
Welcome to the monastery!
Please surround your code sample with <code> tags. The script is unreadable. For help see,
Best, beth