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

if (@ARGV = 2){
my %delList;
my @orgList;
open (BEEPON, >>, "/path/to/beepon.file);
open (BEEPOFF, >>, /path/to/beepoff.file);
open (DELLIST, <, $ARGV[0]);
foreach (<DELLIST>){
   %delList{chomp($_)} = 1;
}
close DELLIST;

open (ORGLIST, <, $ARGV[1]);
   @orgList = <ORGLIST>
close (ORGLIST);

for (my $i = 0; $i < @orgList; $i++){
     if (exists $del{$orgList[$i]}){
         print BEEPON $orgList[$i];
     }
     else
         print BEEPOFF $orgList[$i];
     }
}
close BEEPON;
close BEEPOFF;