foreach(readdir(PRINT)[2...scalar(readdir(PRINT)-1])

##</code><code>##

foreach(@array[2..$#array])
...