my $name = $k."*"; #### my $args = join(" -o ", map { "-name \"$_*\" -print" } @a); $x = `find . $cmd`;