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',
}
];