#!/usr/bin/perl -w
open PASSWD, '/etc/passwd';
my $line;
my @linesplit;
my @arrary1;
my @arrary3;
while (<PASSWD>){
$line = $_;
@linesplit = split(/:/,$line);
@arrary1 = "$linesplit[0]";
@arrary3 = "$linesplit[2]";
my %where;
@where{"@arrary1\t"} = "@arrary3\n";
@newarray = grep {$where{$_} > 1000} keys %where;
foreach $i (@newarray) {
 system ("find '/home/u1' -user $i -print > $i");
 }
}