$data{ (split/\t/)[0] } = { (split/[\t,|\n]/)[1..6] } while <DB>;