use strict;
use warnings;
use File::Copy;

my @files = glob("*.hml");
my @DIR = glob ("*/*.hml");


my @array = ('', grep -d, glob '*');
print "Here's DIR @DIR";
my $argsucess = 0;
foreach my $el (@ARGV){
    print "\n\n\nheres el $el";
    my $delele=0;
    foreach my $element (@DIR){
       print "\n\n\nHERE'S ELE $element";
       print "\n\n\n\n\n\n HERE'S DIR SO FAR @DIR\n\n\n";
        my $re1='((?:[a-z][a-z]+))'; # Non-greedy match on filler
        

        my $re=$re1;
        my $path;
        if ($element =~m/$re/is){
            $path = $1;
        }
       
        if ($el eq $path){
            
            splice(@DIR, $delele, 1);
            $argsucess++;
             next;     
        }
        $delele++;

    }
    
}