Re^7: How can one get all possible combinations of elements of different arrays using File::Glob(bsd

That looks like you have some blank lines in the data files probably at the end. If you print $DNA you should see commas with no values between them. Either edit the files or add a filter like this ;

  $DNA = join(',',grep(/[ACGT]\d[ACGT]\d/,@DNA));    
  print "$DNA\n";
[download]

poj

Comment on Re^7: How can one get all possible combinations of elements of different arrays using File::Glob(bsd_glob)? Select or Download Code