Help for this page
push ($data[ $_ ] =~ m[r] ? @rindex : $data[ $_ ] =~ m[^e] ? @eindex : + @oindex), $_ for 0 .. $#data;