push @{$baseline}, \%base_record; store( \$baseline, $baseline_records ) or die "Can't store %a in $baseline_records!\n"; #### $VAR1 = { 'LICount' => 0, 'LICountBase' => 0, 'LIFloat' => 0, 'LIFloatBase' => 0, 'LIICount' => 0, 'LIICountBase' => 0, 'ProjectID' => 'STO1019001', }; $VAR2 = { 'LICount' => 0, 'LICountBase' => 0, 'LIFloat' => 0, 'LIFloatBase' => 0, 'LIICount' => 0, 'LIICountBase' => 0, 'ProjectID' => 'STO1018001', }; $VAR3 = { 'LICount' => 38, 'LICountBase' => 38, 'LIFloat' => 0, 'LIFloatBase' => 0, 'LIICount' => 11, 'LIICountBase' => 11, 'ProjectID' => 'STO1005001', }; #### my $arrayref = retrieve( $baseline_records ); print Dumper $arrayref; $VAR1 = \[ { 'LICount' => 0, 'LICountBase' => 0, 'LIFloat' => 0, 'LIFloatBase' => 0, 'LIICount' => 0, 'LIICountBase' => 0, 'ProjectID' => 'STO1019001', }, { 'LICount' => 0, 'LICountBase' => 0, 'LIFloat' => 0, 'LIFloatBase' => 0, 'LIICount' => 0, 'LIICountBase' => 0, 'ProjectID' => 'STO1018001', }, { 'LICount' => 38, 'LICountBase' => 38, 'LIFloat' => 0, 'LIFloatBase' => 0, 'LIICount' => 11, 'LIICountBase' => 11, 'ProjectID' => 'STO1005001', } ];