# get file information
sub offenders{
    # scan only regular files
    if (-f){

        # owner of file but skip
        # if owner is not a user
        # (uid < 500)
        $uid = (lstat($_))[4];
        unless ($uid < 500){ 
            $uname = getpwuid $uid;

            # gather name of file
            $fname = $File::Find::name;

            # size of file (kb)
            $size = (lstat($_))[7];
            $size = int($size/1000);

            # keep running total of each
            # user's space use
            $size{$uname} += $size;
        }
    }
}