Shell Programming and Scripting

#!/usr/bin/perl

use strict;
use warnings;

open(my $id_file, '<', 'id_file')|| die "Could not open id_file\n\t$!";;
my $in_record=0;
my @ids=<$id_file>;
close $id_file;
chomp(@ids);
my %id_check;
map {$_++} @id_check{@ids};
open(my $records, '<', 'tmp.dat')|| die "Could not open tmp.dat\n\t$!";
my $head;
while(<$records>){
    if (/^ID/){
        $head=$_
        $in_record=0;
    }
    if (/^AC/){
        my @entries=$_=~/\s+([^;]+);/g;
        for my $id(@entries){
            $in_record=1 if ($id_check{$id});
        }
    print $head if $in_record;
    }
    print if $in_record;
}

bash-3.2$ perl kaavya.pl
Scalar found where operator expected at kaavya.pl line 18, near "$_
        $in_record"
        (Missing operator before $in_record?)
syntax error at kaavya.pl line 18, near "$_
        $in_record"
Execution of kaavya.pl aborted due to compilation errors.

        $head=$_;

#!/usr/bin/perl

use strict;
use warnings;

open(my $id_file, '<', 'id_file')|| die "Could not open id_file\n\t$!";;
my $in_record=0;
my @ids=<$id_file>;
close $id_file;
chomp(@ids);
my %id_check;
map {$_++} @id_check{@ids};
open(my $records, '<', 'tmp.dat')|| die "Could not open tmp.dat\n\t$!";
my $head;
while(<$records>){
    if (/^ID/){
        $head=$_ ;
        $in_record=0;
    }
    if (/^AC/){
        my @entries=$_=~/\s+([^;]+);/g;
        for my $id(@entries){
            $in_record=1 if ($id_check{$id});
        }
        if ($in_record){
            print $head ;
            $head="";
        }
    }
    print if $in_record;
}