while($_ = readdir(DIR)){
	$_ = uc $_;
        push (@wma,$_) if(/\.WMA$/);
}