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