perldl> p $even_columns = $piddle(0:-1:2,:);