in reply to Quicly extracting odd index elements in the array with grep

my @arr = (0,3,4,5,8,10,12,15); my @new = do { local $| = 1; grep --$|, @arr };