my ($ident, $value) = @_[0,1];
tie( $_[1], 'MyTest::Scalar', $ident );
$_[1] = $value if defined($value);
splice(@_, 0, 2);