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