#!/usr/bin/perl
use 5.008;
use strict;
use warnings;
use File::Find;

my $dir = '.';
my @found = ();


my $i=2005;
while (-d "$dir/$i"){
  print "$i\n";
  $i++;

  find({preprocess => sub { return sort @_ }, wanted => sub {if ($File::Find::name =~ /\d_12.*/){push @found, $File::Find::name;}}},  "$dir/$i");
}

my $anzahl=@found;
#print @found;
print "\n\nAnzahl: $anzahl\n";