Sorry, but the code you have posted isn't even legal perl.

P:\test>perl -c temp.pl
Scalar value @lite[] better written as $lite[] at temp.pl line 7.
Scalar value @list[] better written as $list[] at temp.pl line 37.
syntax error at temp.pl line 7, near "@lite["
syntax error at temp.pl line 37, near "@list["
Global symbol "$i" requires explicit package name at temp.pl line 42.
Global symbol "$maxlites" requires explicit package name at temp.pl li
+ne 42.
Global symbol "$i" requires explicit package name at temp.pl line 42.
syntax error at temp.pl line 42, near "++;"
Global symbol "$i" requires explicit package name at temp.pl line 44.
Global symbol "$i" requires explicit package name at temp.pl line 46.
Global symbol "$i" requires explicit package name at temp.pl line 46.
Global symbol "$i" requires explicit package name at temp.pl line 47.
Global symbol "$i" requires explicit package name at temp.pl line 54.
Global symbol "$i" requires explicit package name at temp.pl line 54.
Global symbol "$i" requires explicit package name at temp.pl line 55.
Global symbol "$j" requires explicit package name at temp.pl line 66.
Global symbol "$j" requires explicit package name at temp.pl line 66.
Global symbol "$j" requires explicit package name at temp.pl line 66.
Global symbol "$j" requires explicit package name at temp.pl line 67.
Global symbol "$j" requires explicit package name at temp.pl line 68.
Global symbol "$j" requires explicit package name at temp.pl line 69.
Global symbol "$j" requires explicit package name at temp.pl line 71.
Global symbol "$j" requires explicit package name at temp.pl line 72.
Global symbol "$j" requires explicit package name at temp.pl line 73.
Global symbol "$j" requires explicit package name at temp.pl line 73.
Global symbol "$j" requires explicit package name at temp.pl line 74.
Global symbol "$k" requires explicit package name at temp.pl line 77.
Global symbol "$k" requires explicit package name at temp.pl line 77.
Global symbol "$maxlites" requires explicit package name at temp.pl li
+ne 77.
Global symbol "$k" requires explicit package name at temp.pl line 77.
Global symbol "$k" requires explicit package name at temp.pl line 81.
Global symbol "$j" requires explicit package name at temp.pl line 88.
Global symbol "$j" requires explicit package name at temp.pl line 88.
Global symbol "$newx" requires explicit package name at temp.pl line 9
+1.
Global symbol "$j" requires explicit package name at temp.pl line 91.
Global symbol "$newy" requires explicit package name at temp.pl line 9
+2.
Global symbol "$j" requires explicit package name at temp.pl line 92.
Global symbol "$newx" requires explicit package name at temp.pl line 9
+4.
Global symbol "$newy" requires explicit package name at temp.pl line 9
+4.
Global symbol "$newy" requires explicit package name at temp.pl line 9
+5.
Global symbol "$newx" requires explicit package name at temp.pl line 9
+6.
Global symbol "$j" requires explicit package name at temp.pl line 96.
Global symbol "$j" requires explicit package name at temp.pl line 96.
Global symbol "$j" requires explicit package name at temp.pl line 97.
Global symbol "$newy" requires explicit package name at temp.pl line 9
+7.
Global symbol "$j" requires explicit package name at temp.pl line 97.
Global symbol "$newx" requires explicit package name at temp.pl line 9
+8.
Global symbol "$j" requires explicit package name at temp.pl line 98.
temp.pl had compilation errors.
[download]

It looks like you have attempted a brute force conversion of a C program, but you don't have enough knowledge of Perl syntax to make the conversion.

Taking on (or being given) a complex, near impossible task to program, in language you do not understand enough to recognise that

...or die ("could not open file. &!" );
[download]

should be ...die ("could not open file.$!" );

or my @lite[][]; just isn't legal perl syntax.

means that you are trying to run before you can walk.

You need to start with smaller problems and learn the syntax first.

Attempting to leap in and asking for help to solve one of the toughest problems in computing, when you do not yet know the basic syntax is not going to get you very far. Even if someone was interested enough to take their time to re-write your program and make it work, you would have learned nothing.