$ perl6 -e 'my @a = "a".."g"; say @a[0, *+2 ... +@a]'
aceg