my $x   = "a b c d e f g h";
my @set = (split /\s+/, $x);
splice(@set,0,3);
print "@set\n";  #prints d e f g h