Hello thao4,

Welcome to the Monastery. I would not recommend us to do your work. We are here to help you not to complete the assignment for you. If you are not good in Perl start reading and writing code. Post your questions here when you can not find an answer and we will be more than happy to guide you.

Today you have this problem / task that you are trying to resolve tomorrow? Having said that a good starting point for you could be Read strings from a file, search and replace same string in another file.

Start writing some code and if you get stack and you can not find the solution online post a question with sample of your code and data and we will assist you as much as possible.

Hope this helps, BR.

Just some ideas:

#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dump;

sub indexes(&@);

my @array = <DATA>;

chomp @array;

dd \@array;

my @idxs = indexes { $_ eq "bar" } @array;

dd \@idxs;

sub indexes(&@) {
    my $test = shift;
    grep {
        local *_ = \$_[$_];
        $test->()
    } 0 .. $#_;
}

__DATA__
foo
bar
nose
cuke
foo
bar
nose
cuke
[download]

I cheated a little bit from List::MoreUtils.

This stuff isn't so easy - but we grow with our tasks ;-)

Best regards, Karl