use Symbol;
my $s = "123456789";
Symbol::qualify_to_ref"s::".reverse$s&"\0".("\xff"x length$s);
$s=reverse keys %s::;