userA, machine, last_logged_on
userB, machine, last_logged_on

##</code><code>##

UserA, password, location
UserB, password, location

##</code><code>##

open (A, "FileA") || die "$!\n";
open (B, "FileB") || die "$!\n";
while (my @FILEA=<A>) {
  foreach my $line(@FILEA){
     my ($nameA, $machine, $laston)=split(/,/,$line);

##</code><code>##

   foreach my $lineb(@FILEB){
     my ($NameB, $password, $location)=split(/,/,$lineb);
     if ( $nameA = $nameB ) {
        print "$nameA, $machine, $password\n";
     }