my $quota_res=check_quota( parse_passwd($file) );

my @keys_quota_res=keys %$quota_res;
my $length=$#keys_quota_res+1-$[;
print "$length\n";