#!/usr/bin/perl

use strict;

my %ARR1 = uid();
foreach my $TAB (keys %ARR1) {
    print "User --> $TAB,   Value --> $ARR1{$TAB}\n";
    }

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]";
            }

         }
return %UID_PATH;

}