my @l=unpack('(iccs)*',$file_data);
my @index;
push(@index,[splice(@l,0,4)]) while(@l);