sub dumpsave {
    my ($fname, $ref)= @_;
    print "saving structure to $fname...\n";
    store $ref, $fname;
}

sub dumpsave2 {
    my ($fname, $ref)= @_;
    print "saving structure to $fname...\n";
    local $Data::Dumper::Indent = 0; 
    local $Data::Dumper::Purity = 1; 
    local $Data::Dumper::Terse = 1;  
    local $Data::Dumper::Deepcopy = 1;
    open (F, ">$fname") or die "cant write open $fname";
    print F Dumper($ref);
}