for my $b (@bb) {
    while (<STDIN>) {
        print "while=$_\n";
        last;
    } 
    print "forwhile=$b\n";
}