First, if you want to append a * to the value, it needs to be quoted:

  my $name = $k."*";
[download]

Second, running that command several times, once for each element in the list, can be veeeeerrrryyyyy ssllllloooooooowwww. Most (all?) platforms' find utilities will let you do something like this ...

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