open (my $LISTDEL, '<', $ARGV[0]) || die $!;