sub splice_entry_2 {
  my @kills = sort { $a <=> $b } @_;
  local *ARGV; @ARGV = "shows.data";
  while (<>) {
    if (@kills and $. >= $kills[0]) {
      shift @kills while @kills and $. >= $kills[0];
      next;
    }
    print;
  }
}