my $ref = \substr($_, 3, 2); $$ref = 'foo';