my @matches = grep { $_ =~ /aa/i } @array;

print "Matched:$_\n" for @matches;

##</code><code>##

print "Matched:$_\n" for grep { $_ =~ /aa/i } @array;