Scalar value @{data1{$call1} better written as ${data1{$call1} at ./perl.m line 12.<br>
Type of arg 1 to push must be array (not hash slice) at ./perl.m line 12, near "$sipm )"
Execution of ./perl.m aborted due to compilation errors.