return @users, @passes;

my (@users, @passes) = &_list($userfile, $passfile);

return \@users, \@passes;

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

sub main{
  my @arr0 = qw(1 2 3 4 5);
  my @arr1 = qw(6 7 8 9 10);

  return \@arr0, \@arr1;
}

my ($aref1, $aref2) = &main();

print $aref1->[4], "\n";
print $aref2->[4];

my @array1 = @$users;

&main();