[$a,$b]= @list;

##</code><code>##

     my( $a, $b )= ( 4, 5 );

##</code><code>##

     my $a; my $b= 5;

##</code><code>##

     ( $scalar )= EXPR

##</code><code>##

     $scalar= ( EXPR )[0]

##</code><code>##

    my( $arg )= shift;