#!/usr/bin/perl -wl
use strict;
use warnings;
@ARGV = qw/a b c d/ unless @ARGV;
print for glob( ("{".join(',',map quotemeta,@ARGV)."}") x @ARGV )