my %ARR1 = uid();
foreach my $TAB (keys %ARR1) {
	if (-e "$ARR1{$TAB}/MY_FILE") {
		open (FH2, "<$ARR1{$TAB}/MY_FILE");
		while (my $STRING = <FH2>) {
	if ($STRING =~ /BASE_PORT=(\d+)/) {
		my $STRING = $1;
		print  "$TAB --> $STRING";
				}
			}
		}
	}
		
sub uid {
my %UID_PATH;
open (FH1, "</etc/passwd") || die "Can't Open : $!";
	while (<FH1>) {
	my @UID = split (/:/, $_);
		if ($UID[2] > 500) {
		 my $USER = "$UID[0]";
				#%UID_PATH = ("$USER" => '$UID[5]');
				$UID_PATH{$USER} = "$UID[5]";
				}
 	    }
return %UID_PATH;
}