#! /usr/bin/perl
use warnings;
use strict;

my $params = &ParseProgramParameters();

for my $i (0..$params->{count}) {
  my $data = &ReadAndParseData($params, $i);
  &WriteDataToDb($data, $i);
}
.......