sub db_update {
  my $dbh   = shift;
  my $entry = shift;
 
  # tu was mit $dbh und $entry
}


sub my_main {
  my $dbh = DBI->connect("...")
    or die ".....";

  for my $entry ( 1 .. 10 ) {
    db_update( $dbh, $entry );
  }
}