skel answer 1 in perl
solved problem 1 in perl