New paste Repaste Download
use List::Util qw/first/;
my @arr = ('A', 'B');
my $filter = sub { $_ eq 'B' };
my $index = first { local $_ = $arr[$_]; $filter->() } keys @arr;
print "done $index\n";
Filename: None. Size: 174b. View raw, , hex, or download this file.

This paste expires on 2026-07-21 00:13:15.818434+00:00. Pasted through web.