## Reversing linked list

$curr=$head;


while (defined ($curr->{next})) {
    $curr->{next} = {
                      data =>$curr->{data},
                      next => $curr
                     
                    };
    $curr = $curr->{next};
}

print Dumper $curr;