print @x;  # where's the "uninitialized value in print" warning?
    sub TIESCALAR { bless{} } sub FETCH { 42 } tie $x, "main"; print $x