perl -e 'use Data::Dumper; print Dumper grep(glob("$_/f*"),("dir1", "dir2", "dir3") )'