perldl> p $first_to_third_columns = $piddle(0:2,:);