opendir(USER, "$user{'site_id'}");
@userfiles = grep !/^\.\.?\z/, readdir USER;
close USER;  
@userfiles=(sort @userfiles);

foreach $line (@userfiles) {
    @stats = stat("$user{'site_id'}/$line");
}