Select Code to Download

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