($a,$b,$c) = \(@array[3,5,7]);

##</code><code>##

$$a =~ s/^\s+//; # remove leading white space from $array[3]
$$b =~ s/\s+$//; # and trailing ws from $array[5]
$$c++; # incremnt $array[7]

##</code><code>##

@y = \(@array[2..4,9]);