You're right.

The better way to write it would probably be:

my $match = 'Ba';
my @array = ('Ba Ba Black Sheep');

if (grep(/^$match$/,@array)) {
    print 'exact match?';
}
else {
    print "No match\n";
}
[download]