my $dir = "/and/evel/aap/list/60";

opendir(my $d, $dir) || die "Unable to open $dir ";

while (my $filename = readdir($d)) {

   # removes . and ..
   next if ($filename =~ /^\.+$/); 

   my $filepath = "$dir/$filename";

   .....

}

closedir($d);