Select Code to Download

my %turn= (
    0=>{Next=>5,Prev=>53},
...
    $turn{$next}{Prev}= $prev;
    delete $turn{$num};
}

my %turn= ( 0=>{Next=>0,Prev=>0} );