See How do I post a question effectively?

Generally, you'll find that people here will go out of their way to avoid writing your program for you — they might even offer to present their "rate card." Normally you would present code that you wrote that doesn't work and ask about it. Or ask how to approach a problem. Things like that.

However...

my %o;
open my $in, "abc.properties" or die $!;
while(<$in>) {
   $o{$1}=$2 while m/(\S+)=(\S+)/g;
}
close $in;
[download]