open (IN,"$cdatfile2") || &error("国データファイルが開けませんでした",1); @cdat2 = <IN>; close(IN) or die "Can't close : $!";