#!/bin/perl -w
use Data::Dumper;
use Storable;

%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 ]
        );
print Dumper %list;

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

foreach $line ( %{$root} ) {
    print Dumper $line;
    }
foreach $line ( %{$root} ) {
    foreach $m ( @{$line} ) {
    print "$m\n";
    }
}