Select Code to Download

if ($key == 48)
  {
...
    $msg{$key} = $val;
  }

#Change:
...
#And lose the else around:
$msg{$key} = $val;

use Data:Dumper;

print Dumper(\%msg);

if ($key == 48)
        {
...
           $val=\%msg48;
        }