my $a;
$a = ( 1, 2, 3 );

##</code><code>##

my ( $a, $b, $c ) = 1;

##</code><code>##

my ( $a, $b, $c );
($a, $b, $c) = (1, 2, 3);
($a, $b, $c) = 1;

##</code><code>##

my ( $a, $b, $c ) = (1, 1, 1);
( $a, $b, $c ) += 1;

##</code><code>##

my ( $a, $b, $c ) = ( 1, 1, 1 );
($a, $b, $c)++;

##</code><code>##

my %hash = ('a'=>1, 'b'=>1, 'c'=>1);
@hash{'a'..'c'} = 2;

##</code><code>##

my %hash = ( 'a'=>1, 'b'=>1, 'c'=>1 );
@hash{'a'..'c'}+=1;

##</code><code>##

my %hash = ( 'a'=>1, 'b'=>1, 'c'=>1 );
@hash{'a'..'c'}++;