About issue of chomp command

#!/usr/bin/perl
$file="/tmp/a";
@array=qw(a b c d);
open(FH,"$file") or die "couldn't open $file:$!";
foreach (<FH>) {
        $line=chomp($_);

        print "$line\n";
        foreach (@array) {
                $item=chomp($_);
                if ("$item" eq "$line" ){
                print "$line\n";
                }
        }
}

#!/usr/bin/perl
$file="/tmp/a";
@array=qw(a b c d);
open(FH,"$file") or die "couldn't open $file:$!";
foreach (<FH>) {
        chomp;
        $line = $_;
        foreach (@array) {
                chomp;
                $item=$_;
                if ("$item" eq "$line" ){
                print "$line\n";
                }
        }
}