Select Code to Download

    my %rec = (state          => $part1[0],
               char           => $part1[1],
...
               new_stack_char => $part2[1],
              );
    push(@db, \%rec);

foreach my $hash (@db){
    foreach my $key( keys %$hash){
...
        print "________________________\n";
    } #end foreach $key
}#end foreach $hash