Select Code to Download

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

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