Select Code to Download

sub x{ 
    ++$_  for @_ 
...

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

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

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