@foo = qw(zero one two three four five);
print $_, $/ foreach (@foo[2..4]);
print $/;
print $_, $/ foreach (@foo[1,3,5]);