Why do *you* use:

while(<@array>) {
    print;
}
[download]

?

Do you realize you're globbing?

Why would you unneccessarily glob?

$$>perl -MO=Deparse -le"@a=qw,1 2 3,;print while<@a>;"

@a = ('1', '2', '3');
print $_ while defined($_ = CORE::GLOBAL::glob(join($", @a), 0));

-e syntax OK
[download]

 

______crazyinsomniac_____________________________ Of all the things I've lost, I miss my mind the most. perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"