OK Thanks for the response...
But would you be knowing why the following is running into infinite loop ?
what am I doing wrong here

## Reversing linked list

$curr=$head;


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

print Dumper $curr;
[download]