use Devel::Peek;

my $x = "foo";

Dump $x;
vec($x, 0, 2) = 3;
Dump $x;