Group Project in Perl