opendir (DIRHANDLE, "./dir") or die "Cannot open directory $!\n";
my @l =  grep (/hh.txt/i, readdir DIRHANDLE);
unlink("./dir/$l[0]");
closedir DIRHANDLE;