#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my %data;
while my $line (<DATA>) {
    next if $line =~ /^#/;
    my ($key,$value) = split /:/, $line, 2;
    $data{$key} = $value;
}
print Dumper \%data;
__DATA__
# config file
port: 8888
logfile: /data/log