Select Code to Download

my $ref;
{
...
}

## This was the (IMO false) "bug" scenario.

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