#!/usr/local/bin/perl
print do { と c2 の auto increment の id を合わせる処理が入ってるからですね。 }