use warnings;
use strict 'refs';
my(@A) = ('a', 'b', 'c');
use File::Glob ();
while (defined(my $x = glob(join($", @A)))) {
    do {
        print "$x\n"
    };
}
print "@A\n";