my @list = (
        [
            "'NEIS.IFMS.CP2#LOAD.CHGT.DAT'" => 0,
            "sqlload / ifmschgt.dat >> ifmschgt.log" => 0
        ],
        [
            "'NEIS.IFMS.CP2#LOAD.TOLT.DAT'" => 0,
            "sqlload / ifmstolt.dat >> ifmstolt.log" => 0
        ],
);

store( \@list, 'store' );
my $root = retrieve( 'store' );

foreach my $line ( @{ $root } ) {
    foreach my $m ( @{ $line } ) {
        print $m, "\n";
    }
}