# blah blah

for ($i = 0; $i < 27; $i++){
@alfabet = ("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","numbers");

the 27 = the number of pages, the alfabet, these are the dirs to get scanned.

# blah blah

opendir (DIR,"$dirpath/$page/");
@DIR = readdir(DIR);
closedir (DIR);

# blah blah

print file qq~ $list ~;

##</code><code>##

$number="$number"+"100"; 
# somewhere in there
# can anyone tell me how to do it?