$ perl -e '
my @colors = qw(red blue orange purple pink white);
@colors = @colors[3..$#colors]; 
print join (" ", @colors),"\n";'

##</code><code>##

purple pink white