@currentfiles = sort {  uc($a)   cmp uc($b)  } @currentfiles;
        for($aa = 0; $aa <= int($#currentfiles / 1); $aa++){
                if ($currentfiles[$aa]=~ /$varname/) {            
                @allFilesList  = $currentfiles[$aa];
                print qq~
                <font color="#0000ff"><b>&#149;</b>
                <a href="$folder/$currentfiles[$aa]" target="_blank"><font color="#0000ff">$currentfiles[$aa]</font></a></font><br>
                ~;
                }
        }