#!/usr/bin/perl

use strict;

my $file_1 = <<HEREDOC;
daw2n 189445 eastparkway ca
daw1n 189445 eastparkway ca
dawn 189445 eastparkway ca
HEREDOC

open( my $file, '<', \$file_1 )
  or die "Cannot open $file_1";
my @first_records = <$file>;
close( $file );

while (my $line = <DATA>) {
    for my $i (@first_records) {
        print "Record in file 1 found in file 2: $i"
          if ( $line eq "$i" );
    }
}

__DATA__
kathy 329390 westbrook wa
kat1hy 329390 westbrook wa
dawn 189445 eastparkway ca
kat2hy 329390 westbrook wa
[download]

first value of file1 should compare should through entire first column of file2.

Did you mean something like this:

Print lines in file 1 where the first word on the line is not found in file2; also print lines in file 2 where the first word on the line is not found in file1.

Or did you mean something different? You might want to look at a tool I posted here a few years ago: cmpcol. If I understand your task, you would get the results you want running that script like this:

  cmpcol -x file1 file2 > file.diffs
[download]

If you want to see the whole content of each line from file1 that begins with a name not found in file2, run it like this:

  cmpcol -x1 -l1 file1 file2 > in-file1-only
[download]

  cmpcol -x2 -l2 file1 file2 > in-file2-only
[download]