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