my %lookup = map { substr($_, 0, 13) => substr($_, 13) } ;