my @ll = map { (glob "$path/$_")[0] } qw/*B1006* *B1106-* *B11062*/;