$datachr{ $dat[1] }{ $dat[3] } = $dat[4];