@array = qw/ a b c /;

$scalar = @array;       # puts @array into scalar context
print $scalar;          # '3'

($scalar) = @array;     # forces @array into list context
print $scalar;          # 'a'

($a, $b, $c) = @array;  # likewise
print "$a, $b, $c";     # 'a, b, c'

##</code><code>##

($a, $b) = ($b, $a);    # swap
print "$a, $b, $c";     # 'b, a, c'