my %config;
    open my $config, '<', 'config.txt' or die $!;
    while(<$config>) {
        chomp; 
        (my $key, my @value) = split /=/, $_;
        $config{$key} = join '=', @value;
    }