foreach my $w ( 0 .. $#word_search ) {
    # uses $w to get $word_search[$w]
}