use Devel::Peek;
{ my $subRef = \substr $string, 0;
  Dump($$subRef);
}
{ my $subRef = \(''.substr $string, 0);
  Dump($$subRef);
}