while (my @p = getpwent) {
  my ($user, $uid) = @p[0,1];
  next if $uid < 100;
  .. rest of your loop ..
}