note
toolic
<p>Use [doc://B::Deparse] (Tip #6 from the [Basic debugging checklist]) to see how perl treats your code:
<c>
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";
</c>
1015029
1015029