#!/usr/local/bin/perl

while (<>) {
    chop; push(@items,$_);
}

foreach $item_1 (@items) {
    foreach $item_2 (@items) {
	print "$item_1 $item_2\n";
    }
} 

exit 0;
