open(FH, 'data.txt');
my $c_size = 500;
while (!eof FH) {
  for (map {(eof) ? () : [split ',', <FH>]} 1..$c_size) {
    print "Insert @$_\n";
  }
  print "Buffer done\n";
}