perl -wE 'use Data::Dumper;print Dumper grep(@{[glob("$_/f*")]},("dir1", "dir2", "dir3"))'