Some options always present themselves.
Count the sigils. Yay!package lvals { sub import { shift; no strict 'refs'; *{caller.q(::).$_} = do{ my $x; sub () :lvalue {$x} } for @_; } } 1;use lvals qw(i j matrix sum); matrix = [([1..10]) x 10]; for(i = 0; i < 10; i++) { for(j = 0; j < 10; j++) { sum += matrix->[i][j]; } } print "Matrix sum is ", sum;
/me quickly hides under the rock.
In reply to Re: Opinion: where Perl5 wasn't attractive for me
by oiskuu
in thread Opinion: where Perl5 wasn't attractive for me
by rsFalse
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |