$ perl -e 'my @x = qw{a b c d e f}; print join ",", @x[0,3,4]'
a,d,e