supun  -->  40000
  sam  -->  25000
readline() on closed filehandle $fh at ./base_ports.pl line 11.
  binasha  -->  10000
  bundy -->  37000
  binjiya  -->  5000

##</code><code>##

my $fname = 'MY_FILE';
my %users =  %{user_paths()};
foreach my $user (keys %users) {
        my $fh;
	if (-e "$users{$user}/$fname") {
	open ($fh, '<', "$users{$user}/$fname"); 
	while (my $line = <$fh>) { 
            if ($line =~ /S_REG_PORT_NO=(\d+)/) {
               print "  $user  -->  $1\n";
				
            }
        }
    }
  }

sub user_paths {
    my %users;
    open my $fh, '<', "/etc/passwd" || die "Can't Open : $!";
    while (<$fh>) {
        my @user = split (/:/);
        if ( $user[2] > 500 ) {
        $users{$user[0]} = "$user[5]";
					
        }
    }
    return \%users;
	}