My Perl excercise