Continuing to work on the perl script