PERL Script for adding new members