@colors=('red','green','yellow','orange');
($c[0], $c[1],$c[3], $c[5])=@colors; # The slice
print @colors,"\n";
print "@colors,\n";
print $c[0],"\n";
print $c[1],"\n";
print $c[2],"\n";
print $c[3],"\n";
print $c[4],"\n";
print $c[5],"\n";
print "The size of the \@c array is ", $#c + 1,".\n";