#!/usr/bin/perl -w strict

@array = ("one", "two", "three", "four", "five", "six", "seven");
while (@array){
    $comp = $array[0];
    foreach $element (@array){
        print "$comp$element\n";
    }
shift (@array);
}