sub TIESCALAR {bless \(my $dummy) => shift}