my $line = "1!2!3!4!5!6!7!8!9";
my @arr = split /!/, $line;
my @indices = (2,5..8); #just remember indexing starts at 0.
print join(" : ", @arr);#original
print "\n";
print join(" : ", @arr[2,5..8]);#explicit
print "\n";
print join(" : ", @arr[@indices]);#predefined