my $string    = 'abcdefghijklmnopqrstuvwxyz';
my $substring = \substr $string, 10, 10;
$$substring   = uc $$substring;
print $string, "\n";