I'm trying to work out or exercise, but it's just not working for me. Does anyone know how to do this in Perl?