And also to let you guys know I put in a little code to remove duplicates... stold it from perlfaq4.