#!/usr/bin/perl 
use strict; 
use warnings; 
#use diagnostics; 

if (@ARGV = 2){ 
    my %delList;  
    open (my $BEEPON, >>, "./beepon.file"); 
    open (my $BEEPOFF, >>, "./beepoff.file"); 
    open (my $DELLIST, <, $ARGV[0]); 
    
    foreach (<$DELLIST>){ 
        chomp($_);
        $delList{$_} = 1; 
    } 
    close $DELLIST; 
    open (my $ORGLIST, <, $ARGV[1]); 
    
    foreach my $entry (<$ORGLIST>){ 
        chomp($entry);
        print { exists $delList{$entry} ? $BEEPON : $BEEPOFF } $entry . "\n";
    }
close $BEEPON; 
close $BEEPOFF; 
}

##</code><code>##

readline() on closed filehandle $DELLIST at ./delete_list_ver3.pl line 12.
Use of uninitialized value $ARGV[1] in concatenation (.) or string at ./delete_list_ver3.pl line 17.
readline() on closed filehandle $ORGLIST at ./delete_list_ver3.pl line 19.
syntax error at ./delete_list_ver3.pl line 8, near ", >>"
syntax error at ./delete_list_ver3.pl line 9, near ", >>"
Unterminated <> operator at ./delete_list_ver3.pl line 10.