Select Code to Download

select m, p from ... where u = N group by m, p order by m, p;

my( $m, $p );
$cursor->bind_col( 1, \$m );
...
        push @data, [ $m, [0+$p] ];
    }
}