@a=(1,2,3); foreach my $r (@a) { $r=2; } print @a; [download]
In reply to Re: Hidden Secrets of PERL by Anonymous Monk in thread Hidden Secrets of PERL by perl_lover