

my @name = qw(e garden tool repair online);

for my $n (0 .. 2**$#name-1) {
  my $string;
  for my $i (0 .. $#name) {
    $string .= $name[$i];
    $string .= '-' if $n & (1<<$i);
  }
  print "$string\n";
}
