Help for this page

Select Code to Download


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