$num1 = Grief::new(113);
$num2 = $num1; # Assign using _copy()
$num3 = _copy($num1, '', ''); # Assign using _copy()
_set_val($num1, 555);
print _get_val($num2),"\n", _get_val($num3), "\n";