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