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

##</code><code>##

foreach my $hash (@db){
    foreach my $key( keys %$hash){
        print "KEY: $key \n";
        print "VALUE: $hash->{$key} \n";
        print "________________________\n";
    } #end foreach $key
}#end foreach $hash