I tried to clean up your code and came up with this:

#!/usr/bin/perl -w
use strict; # Always use strict;
open(PASSWD, '/etc/passwd') || die "Could not open /etc/passwd: $!\n";
my %where;
while (<PASSWD>)
{
    my @linesplit = split /:/;    # No need to use $line, 
                    # @array1 or @array3
    @where{$linesplit[0]} = $linesplit[3];
}
close (PASSWD) || die "Error closing file: $!\n"; #Close an opened fil
+e!
foreach my $i (grep {$where{$_} > 1000} keys %where) 
{ 
    system ("find '/home/u1' -user $i -print > $i");
}
[download]

Some notes:

• You should always use strict. You declared some variables lexically and others not. Strict would force you into declaring every variable
• I don't see why you use @array1 and @array3. My version does the same and does not use them
• Why did you add the \t and the \n to the line where you build the %where hash?
• It makes no sense to build the where hash, and flush it immediately after each iteration of the while loop. That is what you're doing. That's why I declared %where before the while loop and moved the foreach loop out of that while
• Update: thanks to OeufMayo: always check the return values of open() and close()

HTH

Jouke Visser, Perl 'Adept'
Using Perl to help the disabled: pVoice and pStory

---

In reply to Re: uid file finder by Jouke
in thread uid file finder by muaddib2

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.