{
    my $string = "123";
    my $ref = \substr $string, 1, 1;
}