@foo = ('cc', '-E', $bar);

##</code><code>##

    $foo = ('cc', '-E', $bar);

##</code><code>##

    $foo = @foo;                # $foo gets 3

##</code><code>##

  @r = () ;
  @r = undef ;               # sets $r[0] = undef 
  @r = 1234 ;
  @r = (12, 23, 34, 45) ; 
  @r = 'a'..'z' ;
  @s = ('a'..'z')[4..15] ;
  @t = @r[7..16];
  @q = 9..13 ;
  @u = @r[@q] ;
  @r{'a'..'z'} = (1..26) ;
  @w = @r{'k'..'p'} ;
  @p = 'k'..'p' ;
  @w = @r{@p} ;

##</code><code>##

  $r = () ;                  # Case 1 -- $r -> undef
  $r = 1234 ;                # Case 2 -- $r -> 1234
  $r = (12, 23, 34, 45) ;    # Case 3 -- $r -> 45
  $r = 'a'..'z' ;            # Case 4 -- error
  $s = ('a'..'z')[4..15] ;   # Case 5 -- $r -> 'p'
  $t = @r[7..16] ;           # Case 6 -- $r -> 'q'
  $u = $r[@q] ;              # Case 7 -- $r -> 'n'
  $w = @r{'k'..'p'} ;        # Case 8 -- $w -> 16
  $w = @r{@p} ;              # Case 9 -- $w -> 16

##</code><code>##

  $r = @r ;       # Case 1 -- $r -> 26
  $v = %r ;       # Case 2 -- $r -> 19/32
  $r = (@r) ;     # Case 3 -- $r -> 26
  $v = (%r) ;     # Case 4 -- $r -> 19/32

##</code><code>##

  $r = (@r, @r) ;
  $v = (%r, %r) ;

##</code><code>##

  return ($a, $b, $c, $d) ;

##</code><code>##

  my @return = () ;
  ...
  push @return, $a, $b ;
  ...
  push @return, $c, $d ;
  ...
  return @return ;

##</code><code>##

  $r = () = 1..27 ;