my ($users, $passes) = &_list($userfile, $passfile);
my @array1 = @$users;
print $_,"\n" for @array1;
print "Passes: $_\n" for @$passes;
print $passes->[1];