Ignoring for the moment Merlyn's comments as to the order of . and .. from readdir...

I feel so slow for not finding this sooner:

foreach ( splice( @{[readdir(PRINT)]}, 2 ) {...}
[download]

Because as perldoc -f splice reports:

...If LENGTH is omitted, removes everything from OFFSET onward...

Update: and since splice returns what it removes, this returns all but the first 2 elements, which is a variation on splice I had forgotten.

-QM
--
Quantum Mechanics: The dreams stuff is made of