my $s = 'The quick brown fox jumps over the lazy dog';
print ${ \substr($s, $_, 1) } for 0 .. length($s)-1;
# Output
The quick brown fox jumps over the lazy dog

##</code><code>##

my @refs;
push @r, \substr($s, $_, 1) for 0 .. length($s) -1;
print $$_ for @refs;
# Output
ggggggggggggggggggggggggggggggggggggggggggg

##</code><code>##

print @refs;
# Output
LVALUE(0x1bd5270) LVALUE(0x1bd5270) LVALUE(0x1bd5270) LVALUE(0x1bd5270) LVALUE(0x1bd5270) LVALUE(0x1bd5270) ...