open(FILE,"< $file");
  @ary = <FILE>;
close(FILE);