Um, I said move, not rewrite :) Move as in

my $insert = ...
...
sub indexfile {
  ...
  $insert->bind_param( ...
  ...
  $insert->execute();
[download]

becomes

my $insert = ...
  $insert->bind_param( ...
  ...
...

sub indexfile {
   ...
   $insert->execute();
[download]

you prepare once, you bind once, you execute many many many many times, like each time you update your bound params :)