my $subRef = \(''.substr $string, 0);