Select Code to Download

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

my @x = qw (0 1 2 3 4 5 6 7 8 9);
my @subset = @x[4..@x-1];
print "@subset\n"; # prints 4 5 6 7 8 9

@set = grep{defined $_}(split /\s+/, $x)[3..99];
print "@set\n";