substr() as subroutine argument

The elements of @_ are aliases not copies of the arguments

sub foo { $_[0] = 'Cooked' };
my $q='Raw';
foo($q);
print "$q\n"; # Prints 'Cooked'

Next