for$a(1..2**@ARGV){print"{@ARGV[grep$a&2**$_,0..@ARGV]}"}