my $i = 0;
    for (@binds) { undef $binds[$i] unless $binds[$i]; ++$i; }