my @data  = @{$cuser->get (\%find)};

my $i;
my %line;

for ($i = 0; $i < @data; $i++)
{
    %line = $data[$i];
        print $i.")".$line{'pass'}."\n";
}