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

##</code><code>##

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