nprofile1qy2hwumn8ghj7un9d3shjtnddaehgu3wwp6kyqpqef037ljgfx59g84n07mm26hcvr23whwza54nekpg2vcrf7dqrtmsjl69vl (nprofile…69vl) Well, you can certainly squash that code to one ugly line like,
```
perl -MData::Dumper -E '%h=(a=>"string",b=>[13,14,15],c=>"another string"); nprofile1qy2hwumn8ghj7un9d3shjtnddaehgu3wwp6kyqpqcmmjjuz8pexxn87r75pwvsqzzef5p70hxg03n236m7350c9rc3nszzue5d (nprofile…ue5d)= map {+{%h, b=>$_}} @{$h{b}}; say Dumper\nprofile1qy2hwumn8ghj7un9d3shjtnddaehgu3wwp6kyqpqcmmjjuz8pexxn87r75pwvsqzzef5p70hxg03n236m7350c9rc3nszzue5d (nprofile…ue5d)'
```
:)