my %UID_PATH;
my %ARR1 = uid();
foreach my $TAB (keys %ARR1) {
    print "User --> $TAB,   Value --> $ARR1{$TAB}\n";
    }
        
sub uid {
my %UID_PATH;
my %ARR2; #add
open (FH1, "</etc/passwd") || die "Can't Open : $!";
    while (<FH1>) {
    my %UID_PATH;
    my @UID = split (/:/, $_);
        if ($UID[2] > 500) {
         my $USER = "$UID[0]";
                %UID_PATH = ("$USER" => "$UID[5]");
                #print "$USER --> $UID_PATH{$USER}\n";
#######                return %UID_PATH;
                $AAR2{$USER} = $UID_PATH;  #add
            }
         }
return %AAR@;         
}
[download]