my $config = Config::Tiny->read('testcase_.txt');
        foreach my $section (sort keys %$config)
        {
                print "[$section]\n";
                foreach my $parameter ( keys %{$config->{$section}})
                {
                        $parameter = $config->{$section}->{$parameter};
                      
                        #$SQL =~ s/.*\=//g;
                       #print "$SQL\n";
                        my $sth = $dbh->prepare(qq{update $section set $prepare where Id = 101});
                        $sth->execute();
                        $sth->finish();
                        print"$parameter\n";


                }
        }