Select Code to Download

use strict;
use warnings;
...
my $i3 = first { $array[$_] == 3 } (0..$#array);

print "<$i1> <$i2> <$i3>\n";

Use of uninitialized value $i3 in concatenation (.) or string at d:/tm
+p/first.pl line 13.
<0> <1> <>