foreach ( @B ) {
   $k++;
   my $idx1 = $_->[0].$_->[1].$_->[2];