# Function that gets passwordLogins from a text file
sub get_loginPasswords {
  my $filename = shift;
  my @loginPasswords;
  open F, "< $filename" or die "Cannot open logins file: $filename \n";
  while (<F>) {
  chomp;			
  if ($_ =~ /\w+@\w+\.\w+,\w+/) {
    my ($login, $password); 				
    ( $login, $password ) = split( ',' );
    my $Login = {
				login 		=> $login,
				password 	=> $password
			};
    push @loginPasswords, $Login;		
  } else {
    die "Error in  login file format: $filename ";
  }
}
close F;
return \@loginPasswords;
}

##</code><code>##

for (%fileAArrayOfHashes)
  for (%fileBArrayOfHashes)
    if (file A column A matches file b column A) {
      add the columns you want to %hashC
      push (@fileCarrayOfHashes,\%hashC)