foreach my $f (@d1)
    {
        
        my $d1 = basename($f);