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

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