my $large_scalar = 'a huge string like 64K or something';

modify_largescalar(\$large_scalar);

sub modify_largescalar {
    my $scalar_ref = shift;
    # Code to modify $$scalar_ref;
}