Select Code to Download

#!/usr/bin/perl
use strict;
...
my @trimers = <>;
chomp @trimers;
say for glob +('{' . join(',', @trimers) . '}' ) x 2;