my %records;
open my $fh, "<", $file1;
/^(\S+)\s/ and $records{$1}=1 while <$fh>;
close $fh;