use IO::Dir;
my @dirhandle = map {  IO::Dir->new($_) } @dirs;