sub x{ 
    ++$_  for @_ 
};;

( $a, $b, $c) = 12345..12347;;
x( $a, $b, $c );;

print $a, $b, $c;;
12346 12347 12348

##</code><code>##

sub x{ 
    my( $a, $b, $c ) = @_;
    ++$_  for $a, $b, $c;
}

##</code><code>##

sub xyz (\$) {
    my $rStr = shift;
    substr $$rStr, ...;
    vec $$rStr, ...;
    ...
}