open (CONFIG, "<$config_file)" || die "Coulnd't open config file!";

my %lookup;

while (<config>)
{
    $lookup{substr($_, 0, 13)} = substr ($_, 13);
}