Select Code to Download

## perl 5.10.1
use strict;
...
grep $ary[$_ ], @ary;  # no warning

grep $ary[$oo], @ary;  # warns

## perl 5.10.1
use strict;
...
grep {$ary[$_ ]} @ary;  # no warning
grep {$ary[$oo]} @ary;  # warns