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