while ( <FB> ){
    chomp; 
    my($col0, $col1, $col2, $col3) = split ","; 
    push @B, [$col0, $col1, $col2, $col3];

}