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

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