#!/usr/bin/perl -w
use strict;
use 5.10.0
my $x   = "a b c d e f g h";
my @set = (split /\s+/, $x)[3..???]; # to act like:[3..7]
print "@set\n";