perl crypto. task 1 and 2