#!/opt/perl-5.28.0/bin/perl

use v5.28;
use warnings;
use FindBin '$RealBin', '$RealScript';
use lib "$RealBin/local/lib/perl5", "$RealBin/lib";

use DateTime::Format::Strptime;
use Storable 'store', 'retrieve';
use Data::Dumper;
use Scalar::Util 'weaken';

my $foo = [
    DateTime::Format::Strptime->new(
        pattern => '%Y-%m-%d %H:%M',
        time_zone => 'UTC',
    ),
    {},
];

$foo->[1]{a}{b} = $foo->[1];
weaken $foo->[1]{a}{b};


print Dumper($foo->[1]);

store $foo, './big_array.dat';
retrieve './big_array.dat';