*foo = *1; !eval { ($foo) = $foo } and print "Ok\n";