solutions perl 21-30