#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';

my @trimers = <>;
chomp @trimers;
say for glob +('{' . join(',', @trimers) . '}' ) x 2;
[download]

Update: Using glob is safe only if the data do not contain any special characters like ? * [] {} , or whitespace.