my $substr = substr $bigstring, $start, $length;
func( \$substr );