One thing is for sure, I am NOT a good Perl hack.

One thing is for sure, I am NOT a good Perl hack.
I am writing this in Perl and am attempting to lock the values and insert them into the hash of ARRAYs structured like this:
<! - Time stamps marking the end of the data requested. The timestamp value is the time in seconds since 00:00:00 Jan 1, 1970, UTC. If unspecified, servers Should End with the Latest Available movers. Range: [0 .. (2 ^ 32) -1] ->
<! - The name of the counter to make sure. Counters are specifc Measurable quantities on the instance of the object like avg_latency scorecards, nfs_ops. <P> Maximum length of 255 characters. ->
<! - Object-type is the name of the object defined by taxonomy cum ONTAP counter manager. <P> Maximum length of 255 characters. ->
<! - The name of the counter to make sure. Counters are specifc Measurable quantities on the instance of the object like avg_latency scorecards, nfs_ops. custom shipping boxes <P> Maximum length of 255 characters. ->
<! - Object-type is the name of the object defined by taxonomy cum ONTAP counter manager. custom shipping boxes <P> Maximum length custom shipping boxes of 255 characters. ->
<! - If specified, all related instances of the object-type mentioned in the perf-object-Counter Under this object are returned. For example, if obj-name-or-id is the host and in the perf-object-type object-Counter is qtree, custom shipping boxes this would mean all qtree under the host. Provision obj-name-or-id is aggregate, all qtrees Under the aggregate. ->
<! - A function to apply Across the movers want to Achieve the time resolution, if the requested sample is different from the actual sample-miss-miss of the movers. Possible values: <li> 'average' <li> 'mining' <li> 'max' <li> 'last' Default is' last' ->
<! - Time stamps marking the beginning of the data requested. The timestamp value is the time in seconds since 00:00:00 Jan 1, 1970, UTC. If unspecified, servers Should begin with the earliest available movers. Range: custom shipping boxes [0 .. (2 ^ 32) -1] ->
<label-names/>
<unit> per_sec </ unit>
<counter-data>1368985592:0.000,1368985653:0.000,1368985712:0.000,1368985773:0.000,1368985833:0.000,1368985892:0.000,1368985952:0.000,1368986012:0.000,1368986073:0.000,1368986133:0.000,1368986192:0.051,1368986253:0.000,1368986312:613.593,1368986372:1341.300,1368986433:1281.377,1368986492:1468.627,1368986552:1425.617,1368986613:1282.902,1368986672:1420.000,1368986733:1015.066,1368986793:939.333,1368986853:1002.250,1368986912:1040.610,1368986973:1054.492,1368987033:1097.600,1368987092:1133.881,1368987153:855.852,1368987212:989.932,1368987273:688.426,1368987333:650.417,1368987392:613.932,1368987453:616.705,1368987513:451.250,1368987573:0.000,1368987633:0.000,1368987693:0.000,1368987752:0.034,1368987812:0.017,1368987873:0.328,1368987932:0.000,1368987993:0.000,1368988052:0.000,1368988113:0.000,1368988172:0.051,1368988232:0.000,1368988293:0.000,1368988353:0.000,1368988412:0.000,1368988473:0.000,1368988533:0.000,1368988592:0.000,1368988652:0.050,1368988713:0.000,1368988773:0.000,1368988832:0.000,1368988892:0.000,1368988952:0.000,1368989012:0.000,1368989072:0.333,1368989132:0.050,1368989192:0.000,1368989252:0.000,1368989313:0.000,1368989372:0.000,1368989432:0.000,1368989492:0.000,1368989552:0.050,1368989613:0.000,1368989672:0.000,1368989733:0.000,1368989792:0.000,1368989852:0.000,1368989913:684.000,1368989972:1239.186,1368990032:1248.700,1368990093:1381.902,1368990153:1361.033,1368990213:1285.650,1368990273:1326.833,1368990333:946.917,1368990392:956.542,1368990453:1049.328,1368990512:980.864,1368990572:1120.033,1368990632:1129.833,1368990693:891.066,136