Linux

#!/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);
}