perl -le 'my @array = qq[Anthony Mark Alex A]; print for @array'
[download]

See? What does the qq[] operator do? you want qw[].

You would have spotted that had you written e.g.

# Program : 2
#!/usr/bin/perl

use strict;

my $match = 'A';

my @array = qq[Anthony Mark Alex A];
if ( my @list = grep( /$match$/,@array ) ) {
   print "Matched: ".join(', ', map {"'$_'"} @list)."\n";
}
__END__
Matched: 'Anthony Mark Alex A'
[download]

learn to debug... ;-)

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}