for (@array) {
    print "$_ matches\n" if $_ =~ /ME/;
}