#!/usr/bin/perl

$delindex = "@ARGV"; #ここに削除したいindexデータを指定

open (IN,"tree.dat");
  @dt = <IN>;
close IN;

$finddt = "^" . $delindex ;
@sr = grep(!/$finddt/,@dt);

$lines = $delindex . "\,d\,\n";

push(@sr,$lines);

@dt = sort {$a cmp $b;} @sr;

open (OUT,">tree.dat");
  print OUT @dt;
close OUT;