my $x = "123";
alias substr($x, 1, 1) = $x;
print $x;