for(my $bn=1;$bn<=$row[0];$bn++)