Caesar cipher implemented in Perl for a class excercise