Slurp it into an array first, then move to a hash:

my %lookup = map { substr($_, 0, 13) => substr($_, 13) } <CONFIG>;
[download]

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated