Update perl001.pl

removed variable declarations that were not needed