foreach my $subdir (my @dirlist) { 
#...

##</code><code>##

my @iresdir = readdir IRESDIR;
foreach my $dir (@iresdir) {
    push (my @dirlist, $dir);
}
closedir IRESDIR;