#!/usr/bin/perl

   use strict;

   my (@list) = qw(one two three four);

   printcombo(\@list);

#-----------------------------------------------------------
sub printcombo {

   my ($list) = @_;
   my (@print, $str, $i, $j);

   my $size = @{$list};

   for ($i = 0; $i < 2**$size; $i++) {
      $str = sprintf("%*.*b", $size, $size, $i);
      @print = ();
      for ($j = 0; $j < $size; $j++) {
         if (substr($str, $j, 1)) { push (@print, $list->[$j]); }
      }
      print join(' ', @print) . "\n";
   }
}