my()ing @X outside the while works as well...

perl -e'my@X;while(){@X=split/:/,"1::"}'
[download]

good catch, perlplexer.

~Particle ;Þ