$[ = 2; *| = *[;  ($| = 1) == 2 and print "Ok!\n"; warn 0+$|;