#!/usr/bin/perl 

open(F, "kousiki.txt") || die "cannot open file:$!\n";
open(RPL, ">>置換計画.rpl");
$n = 1;
while(<F>){
@line = split(/,/);
chomp($line[1]);
print RPL "$n\t$line[0]\t$line[1]\t×\t×\t×\t×\t\t選択\n";
$n++;
}
close(RPL);
close(F);