#!/usr/bin/perl 

open(F, ">>staticdic");
open(DB1, "JISYO1") || die "cannot open file:$!\n";
open(DB2, "JISYO2") || die "cannot open file:$!\n";
@data1 = <DB1>;
@data2 = <DB2>;
$line = @data1;
for ($i=0;$i<$line;$i++){
chomp($data1[$i]);
print F "$data1[$i]\t$data2[$i]";
}
close(DB1);
close(DB2);
close(F);