Select Code to Download

Select or download this
```
    @foo = ('cc', '-E', $bar);
```
Select or download this
```
    $foo = ('cc', '-E', $bar);
```

    $foo = @foo;                # $foo gets 3

Select or download this

  @r = () ;
  @r = undef ;               # sets $r[0] = undef 
...
  @w = @r{'k'..'p'} ;
  @p = 'k'..'p' ;
  @w = @r{@p} ;

Select or download this

  $r = () ;                  # Case 1 -- $r -> undef
  $r = 1234 ;                # Case 2 -- $r -> 1234
...
  $u = $r[@q] ;              # Case 7 -- $r -> 'n'
  $w = @r{'k'..'p'} ;        # Case 8 -- $w -> 16
  $w = @r{@p} ;              # Case 9 -- $w -> 16

Select or download this

  $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

Select or download this
```
  $r = (@r, @r) ;
  $v = (%r, %r) ;
```
Select or download this
```
  return ($a, $b, $c, $d) ;
```

Select or download this

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

Select or download this
```
  $r = () = 1..27 ;
```