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

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