hi monks, i am getting the following error when i run my script against sql server

DBD::ODBC does not yet support binding a named parameter more than once

i am bind the parameter here

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";
        }
[download]

any solution