Perl game project