View source for 3. Arrays

<pre>
# Simple array constructs.
@fred = (&quot;How&quot;, &quot;are&quot;, &quot;you&quot;, &quot;today?&quot;);
print &quot;\@fred contains (@fred).\n&quot;;

$mike = $fred[1];
print &quot;$mike $fred[3]\n&quot;;

# The array name in a scalar context gives the size.
$fredsize = @fred;
print &#39;@fred has &#39;, &quot;$fredsize elements.\n&quot;;

# The $#name gives the max subscript (size less one).
print &quot;Max sub is $#fred\n&quot;;</pre>