#!/usr/bin/perl
use strict;
use warnings;

my $File1 = <<EOF;
Name, Job, City, State
Jim, MD, Pinole, CA
Tara, Nurse, San Pablo, CA
Julie, MD, San Pablo, CA
Sherry, Nurse, Pinole, CA
George, MD, Pinole, CA
Tim, Nurse, Pinole, CA
Bob, Nurse, Pinole, CA
Uma, MD, San Pablo, CA
Kate, Nurse, Oakland, CA
Pete, MD, San Pablo, CA
EOF

my $File2 = <<EOF;
Name, Job, City, State
Jim, Doctor, Pinole, CA
Tara, Nurse, San Pablo, CA
Julie, Doctor, San Pablo, CA
Sherry, Nurse, Pinole, CA
Jan, Doctor, San Pablo, CA
George, Doctor, Pinole, CA
Tim, Nurse, Richmond, CA
Bob, Nurse, Pinole, CA
Uma, Doctor, San Pablo, CA
Kate, Nurse, Oakland, CA
Paul, Doctor, Oakland, CA
Ruth, Nurse, Richmond, CA
Joe, Nurse, Oakland, CA
Nick, Nurse, Pinole, CA
Pete, Doctor, San Pablo, CA
EOF

my %occupation;

open my $fh1, '<', \$File1 or die $!;

<$fh1>; # throw away header line

while (<$fh1>) {
	my ($name, $title) = split /, /;
	$occupation{$name} = $title;	
}
close $fh1 or die $!;

open my $fh2, '<', \$File2 or die $!;

<$fh2>; # throw away header line

while (<$fh2>) {
	my ($name, $title) = split /, /;
	
	if (exists $occupation{$name} and $occupation{$name} ne $title) {
		print $name, " => Prev: $occupation{$name}, Now: $title\n";	
	}
}
close $fh2 or die $!;