#!/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)
{
	my $file = glob ("$address{$t}/Test*");
	print "$t : $address{$t} : $file, \n";
}