Perlito5 - fixed assignment of special variable in list context: ($^W) = 3