You need to put

if ($read(test.txt, nw, %token))

inside the while loop