in reply to Line concat to proper hash key

Well you set $key to the proper value

In Section Seekers of Perl Wisdom