perl Set-Scalar