sub Read_file {
  ## we assume CLAIMS is a valid filehandle
  ## and @array is a global
  while (<CLAIMS>) {
    push @array,[unpack("a8a6a2",$_)];
  }
}