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