use 5.010;
use strict;
use warnings;
use autodie;

my %map;
open my $IN, '<', 'f1';
while (<$IN>) {
    my ($first, undef, $type, $fourth) = split;
    $map{$fourth} = $first if $type eq 'coord';
}
close $IN;

open $IN, '<', 'f2';
while (<$IN>) {
    my ($first, $rest) = split /\s/, $_, 2;
    if ($map{$first}) {
        print "not_$map{$first} $rest"
    }
}
close $IN;