$folder= "data";
my $up=uc qq{'$folder'};
print "\n$up";
my $mk= 'DATA';
next if $mk =~ /uc qq{'$folder'}/i;
print "\nIN"; --->prints,ideally if above line matches it should not print this line