my $counter = 1;
		foreach my $key (keys %hdr_field_vars) 
		{
			my $data_ref = $hdr_field_vars{$key}[0];
			my $data = $$data_ref;
			#print  $JBM " counter is $counter \n";
			#print  $JBM " data is $data \n";
			use Data::Dumper;
			print "<--------------------";
			print $JBM Dumper($data);
			print "-------------------->";
			$sth_header->bind_param( $counter, $data );
			$counter++;
			#print $JBM "$counter"."==>"."$data\n";
		}