> perl -we' use strict; use P;
my $VAR1 = { "A1" => { "val1" => [23], "val2" => [42], "val3" => [15], "val4" => [10] } ,"B1" => { "val1" => [13], "val2" => [22], "val3" => [25], "val4" => [11] }};

P "-----------\nvar=%s", $VAR1;'
-----------
var={A1=>{val1=>[23], val2=>[42], val3=>[15], val4=>[10]}, B1=>{val1=>[13], val2=>[22], val3=>[25], val4=>[11]}}