@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";