Help for this page

Select Code to Download

Select or download this

      unless (scalar(@{$cu1})) {print "cu1 is empty\n"; next} 
      my $cui1 =pop @{$cu1};
...
      print 'cui2    :'.$cui2."\n"; 
      ########################################