while (<$loc_dir*$from>) {