-dir1
  |_ file1.gz
  |_ ...
  |_ file1000.gz

...

-dir100
  |_file1.gz
  |_ ...
  |_ file300.gz


##</code><code>##


for my $sd (@dirs) {
   system("cd $sd");
   system("gunzip *.gz"); 
}