#!/usr/bin/perl 

open(F, "JISYO.csv") || die "cannot open file:$!\n";
open(DB1, ">>JISYO1");
open(DB2, ">>JISYO2");
while(<F>){
@line = split(/,/);
chomp($line[1]);
print DB1 "$line[0]\n";
print DB2 "$line[1]\n";
}
close(DB1);
close(DB2);
close(F);