Please help if possible

no warnings;

Don't do that. use warnings; would be far superior.

Don't use modules which aren't needed.

Don't leave commented out code in your example.

Pick an indentation scheme and stick to it. perltidy makes this easy.

Read SSCCE.