ファイルの中身を読み込み配列に格納

# 引数:ファイルパス
# 戻値:配列
sub readFile() {
   local($filename) = @_;
   local(@data);
   if (-f "$filename") {
       if (open(FILE, "$filename")) {
           @data = <FILE>;
           close(FILE);
       }
   }else {
       #&Error("「$filename」が見つかりません");
   }
   return @data;
}