open my $orglist, '<', $ARGV[1] or die "Can't open $ARGV[1]: $!";
foreach my $item (<$orglist>) {
    chomp($item);
    print { exists $dellist{$item} ? $beepon : $beepoff } $item . "\n";
}
close $orglist;