Using Integer Scalar As Boolean Perl