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

my %address =
(
	A 	=> qq{U:/TEMP/TEMP/A},
	B	=> qq{U:/TEMP/TEMP/B},
	C	=> qq{U:/TEMP/TEMP/C},
);

for my $t (keys %address)
{
	print "$t : $address{$t} : ", glob ("$address{$t}/Test*"), "\n";
}