IO::Scalar issue with OUTPUT