#!/usr/bin/perl
use strict;
use warnings;

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