use File::Spec;

use strict;
use warnings;

while (<DATA>) {
	chomp;
	my ($dir, $ext) = split ' ';
	
	my $path = File::Spec->catfile($dir, "*.$ext") . "\n";
	
	if (! glob($path)) {
		print "No '$ext' in $dir\n";
	}
}

__DATA__
CMA\data\files\arm\so-le-v7 so
ama\data\files\arm\so-le-v7-g so
media\data\files\arm\o-le-v7 o
encdc\data\files\arm\o-le-v7-g o
qcp\data\files\arm\a-le-v7 a
pcn\data\files\arm\a-le-v7-g a