foreach(grep ! /^\.{1,2}$/, readdir(PRINT)){
    #do work
}

##</code><code>##

my $dir = '/path/to/dir';
foreach(glob('$dir/*')){
    #do work
}

##</code><code>##

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