C:\>perl
my @colors = ("red", "blue", "orange", "purple", "pink", "white");
splice(@colors, 0, 3);
print "@colors";
^D
purple pink white
C:\>