http://www.perlmonks.org?node_id=1015035


in reply to Reading from an array using angle brackets

Use B::Deparse (Tip #6 from the Basic debugging checklist) to see how perl treats your code:

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";