Select Code to Download

   @a = qw(a b c d e);
   @b = @a;  # @b contains (a b c d e)
   $b = @a;  # $b is 5, as the "=" is overloaded by context

   @a = qw(a b c d e);
   $b = @a[1,3];
   print $b

   @a = qw(a b c d e);
   $b = @a[1];
   print $b

   @a = qw(a b c d e);
   @b = @a[1];
   $b = @b
   print $b

   @a = qw(a b c d e);
   $b = scalar @a[1,3];
   print $b

   @a = qw(a b c d e);
   $b = @a[3,1];
   print $b