my @columns = @{$self->{columns}};foreach (@{$self->{columns}}) {print qq{self->col: $_\n};} # prints the 3 columns
foreach (@columns) {print qq{col: $_\n};} #prints 3
Why? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>