my @array = readdir(PRINT);
foreach(@array[2..$#array]){
  #do work
}