>>181
> $directory/$real_filenames[$q]
をprint_rでもして、確認してみれば?