my @even = grep --$|, @array;