perl exercises