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