Select Code to Download

sub firstidx(&@) {
    my $code = shift;
    $code->( $_[ $_ ] ) and return $_ for 0 .. $#_;
}

sub firstidx(&@) {
    my $code = shift;
    $code->( local $_ = $_[ $_ ] ) and return $_ for 0 .. $#_;
}