perl euler problems