Select Code to Download

use strict;
use warnings;
...

  print "$var\n\n";                                  #this line shows 
+what the $var variable is passing to glob in line 17

say for glob '{' . join('}-{' => map { join ',' => split } <DATA>) . '
+}';