# Calling the subroutine
($usernamesRef,$passwordsRef,$displaynamesRef) = arrayToMultiHash (\@users);
%usernames = %{$usernamesRef};
%passwords = %{$passwordsRef};
%displaynames = %{$displaynamesRef};

# The subroutine
sub arrayToMultiHash
{
  my @array = @{$_[0]};
  my @hashRefs;  

  foreach $line (@array)
  {
    my @lineInfo = split (/\|/,$line);
    my $key = shift (@lineInfo);
    my $i = 0;
    foreach $value (@lineInfo)
    {
      my $hashName = "hash$i";
      $hashName{$key} = $value;
      $i++;
    }
  }
  
  foreach (0..$i)
  {
    my $hashName = "hash$i";
    push (@hashRefs,\%{$hashName});
  }

  return (@hashRefs);
}