Java_to_Perl Conversion Project 2