sub read_initial_data
 {
        my $config = Config::Tiny->read('/home/database_update.txt');
        foreach my $section (sort keys %$config)
        {
                print "[$section]\n";
                foreach my $parameter ( keys %{$config->{$section}})
                {
                        $parameter = $config->{$section}->{$parameter};
                        my $sth = $dbh->prepare(qq{update $section set Account_balance=20000 where Id = 101});
                        $sth->execute();
                        $sth->finish();
                        print"$parameter\n";


                }
        }

 }