for (my $i = 0; $i < @array; $i++) {
    if ($array[$i] == 7) {
        say "The index is $i";
        last;
    }
}