foreach my $k ( @a) {
           my $name = $k.\*;
           $x = `find . -name "$name" -print`;
        }