[easy] odd numbers - perl