my %sentence_codes = map { /(.*)_(.*)/ && ($1,$2) } split $codefile;