perl -F: -ane 'BEGIN {open K, "<file2"; $h{0+$_}=1 for <K>} print if exists $h{$F[0]}' file1