Select Code to Download

use Data::Dumper;       
#          Two strings,   single blanc, two strings,   double blanc
...
}
@words=@combinations;
print Dumper\@words;

$VAR1 = [
          'abcdefgh',
          'jklmnopq'
        ];

use strict;
use warnings;
...
    }
    return @output;
}

Double blancs:
["abcdefgh", "jklmnopq"]
...

Array contains single blanc:
["abcdefghjklmnopq", "rstuvwxy"]